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FOREWORD 


Hus  document  is  Volume  II  of  a  two  volume  report  describing  the  Re¬ 
ne  tiny  and  Multi- Phase  (RAMP)  Computer  Code  developed  by  the  Advanced 
Tei  Imnlukiv  Systems  Section  of  Lockheed's  Huntsville  Research  &  Engineering 
Center.  \  ilunu*  II  addresses  the  computer  code  along  with  the  program  input 
and  output.  Volume  I  deals  with  the  theory  and  numerical  solution  for  the 
i  mu  pule  r  i  ode  . 

Dm  umentation  of  the  computer  code  was  prepared  in  partial  fulfillment 
»>f  contract  requirements  (Contract  NAS9-  14517)  with  the  NASA-Johnson  Space 
Flight  Center,  Houston,  Texas,  in  support  of  Space  Shuttle  related  exhaust 
plume  applications.  The  contracting  officer's  technical  representative  for 
this  study  was  Mr.  Barney  B.  Roberts  of  the  Aerodynamics  Systems  Analysis 
Section . 

The  authors  acknowledge  the  efforts  of  a  number  of  individuals  who 
contributed  to  the  development  of  the  RAMP  code.  These  include  Dr.  Terry 
F.  Greenwood  and  Mr.  David  C.  Seymour  of  the  NASA-Marshall  Space  Flight 
Center;  and  Messrs.  Robert  J.  Prozan,  Jon  A.  Freeman,  L.  Ray  Baker  and 
A.  W.  Ratliff  of  Lockheed-Huntsville .  Ideas  and  suggestions  for  improvement 
of  the  analysis  are  reflected  by  frequent  consultation  with  these  individuals. 

Companion  documents  to  this  report  include  a  theory  and  numerical 
solution  document  for  the  RAMP  computer  code;  a  report  which  describes  the 
modifications  made  to  the  NASA-Lewis  TRAN72  computer  code;  and  documenta¬ 
tion  of  a  one-dimensional  solution  which  provides  a  supersonic  startline  for 
the  RAMP  code.  These  documentation  are,  respectively: 
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•  "Supersonic  Flow  of  Chemically  Reacting  Gas- Particle  Mixtures  — 
Volume  I  —  A  Theoretical  Analysis  and  Development  of  the 
Numerical  Solution,"  LMSC-HREC  TR  D496555-I. 

•  "User's  Guide  for  TRAN72  Computer  Code  Modified  for  use  with 
RAMP  and  VOFMOC  Flowfield  Codes,"  LMSC-HREC  TM  D390409. 

•  "General  One- Dimensional  Flow  of  Gas- Particle  System," 
LMSC-HREC  TM  390876. 
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Section  1 

INTRODUCTION  AND  SUMMARY 


V 

Most  solid  rocket  motor  propellants  contain  metal  additives  which  in¬ 
crease  the  energy  content  of  the  system  and  also  suppress  combustion  pressure 
instabilities.  The  presence  of  these  metal  additives,  however,  results  in 
condensed  products  in  the  exhaust  which  can  do  no  expansion  work  and  thereby 
reduce  the  effectiveness  of  the  nozzle.  Also,  the  presence  of  liquid  or  solid 
particles  in  the  exhaust  will  contribute  significantly  to  radiation  and  plume 
impingement  heating  on  structures  which  are  either  immersed  or  in  proximity 
to  the  exhaust  plume.  It  is  therefore  important  to  know  the  physical  properties 
of  both  the  solids  and  gases  throughout  the  nozzle  and  exhaust  plumes. 

This  report  describes  two  computer  programs  which  are  applicable  to 
he  analysis  of  chemically  reacting  gas-particle  flow  fields.  The  programs 
are: 

•  The  NASA-Lewis  FORTRAN  IV  Computer  Program  for 
Calculation  of  Thermodynamic  and  Transport  Properties 
of  Complex  Chemical  Systems  (TRAN72) 

•  The  Lockheed  Reacting  and  Multi- Phase  Computer 
Program  (RAMP). 

These  programs  are  currently  operational  on  the  CDC,  Univac  and  IBM 
computers.  To  facilitate  the  use  of  the  codes,  they  are  constructed  such  that 
automatic  transmission  of  data  to  other  computer  programs  is  possible  via 
magnetic  tapes. 

Section  2  presents  a  description  of  the  modifications  made  to  the  TRAN72 
computer  program  to  meet  the  general  requirements  of  Lockheed's  RAMP 
program  and  provides  instructions  for  operating  the  modified  TRAN72  program. 
Four  example  cases  are  presented  which  show  the  required  input  format 
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and  resultant  output  for  creation  of  thermodynamic  data  for  typical  rocket 
performance  problems.  No  attempt  is  made  here  to  report  on  the  program 
itself  since  this  information  is  documented  in  Refs.  1  and  2. 

Section  3  of  this  report  discusses  the  RAMP  program.  Included  are; 

•  A  discussion  of  the  basic  capabilities  and  limitations 
of  the  program. 

•  A  user's  input  guide  for  the  RAMP  program. 

•  A  description  of  the  typical  input/output  for  a  two- phase 
chemical  equilibrium  flow  problem;  a  single  phase  chemical 
equilibrium  flow  problem  with  free  molecular  considerations 
and  a  single  phase  finite  rate  chemistry  flow  problem. 

•  A  discussion  of  typical  user  problems  and  possible  fixes. 

•  A  list  of  helpful  hints  and  a  presentation  of  example  deck 
set-ups . 

•  A  brief  description  of  each  of  the  basic  routines  in 
functional  groupings. 

•  A  detailed  discussion  of  each  individual  routine  used  in 
the  program. 

•  Program  overlay  structure. 

•  A  section  of  typical  example  problems  including  a  statement 
of  the  problem,  accompanying  figure  and  sample  input  and 
output. 

The  gas- particle  capability  has  been  incorporated  into  a  streamline- 
normal  method  of  characteristics  computer  program  (Ref.  3).  Choosing 
this  technique  provides  several  important  advantages  in  describing  flowfields 
which  contain  a  gas- particle  mixture  not  found  in  conventional  method  of 
characteristics  program  (Ref.  4),  and  at  the  same  time,  retains  the  same 
sophistication  and  capabilities  of  these  programs.  First,  the  streamline- 
normal  method  allows  a  data  point  on  a  particle  limiting  streamline  to  be 
treated  in  the  same  fashion  as  a  data  point  on  a  gas  streamline.  This  greatly 
simplifies  the  tracing  of  particle  trajectories  through  the  flow  field.  Also, 
another  important  feature  is  the  reduction  in  computer  storage  requirement 
to  identify  the  particle  locations.  Flow  fields  containing  shock  waves  (both 
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right- running  and  left- running  or  in  combination)  can  be  analyzed  in  one 
continuous  operation,  hence  expediting  the  flowfield  description  of  nozzles 
and  plumes  or  other  complicated  geometries. 


These  computer  programs  are  extremely  large  and  complex  so  that  a 
complete  description  of  them  is  not  feasible  in  this  report.  It  is  possible, 
however,  to  utilize  the  programs  with  the  information  contained  herein  while 
total  understanding  of  the  methods  is  made  possible  by  study  of  the  supporting 
documentation. 

The  computer  programs  are  available  for  external  distribution.  Further 
information  on  obtaining  the  programs  is  available  from  the  authors. 
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Section  2 


USER'S  INPUT/OUTPUT  GUIDE  FOR  THE  MODIFIED  TRAN72 

COMPUTER  CODE 

The  TRAN72  computer  program  (developed  by  NASA-Lewis  Research 
Center  (Ref.  I))  was  synthesized  by  combining  a  program  for  the  transport 
properties  calculation  with  the  CEC  71  program  (Ref.  2)  for  the  thermo¬ 
dynamic  properties  calculation.  The  TRAN72  program  was  subsequently 
modified  to  meet  the  requirements  of  Lockheed's  reacting  and  Multi-Phase 
(RAMP)  Computer  Program  (Ref.  5).  The  requirements  satisfied  were: 

(1)  calculation  of  the  theoretical  rocket  performance  (for  both  equilibrium 
and  frozen  compositions)  during  a  "gaseous-only"  expansion,  after  a  two- 
phase  combustion  chamber  calculation;  and  (2)  automated  communication 
of  these  properties  to  the  RAMP  program. 

2.1  USE  OF  THE  MODIFIED  TRAN72  PROGRAM  WITH  THE  RAMP 
PROGRAM 

Modifications  were  made  to  the  TRAN72  chemical  equilibrium  calcu- 
lational  scheme  in  order  to  generate  thermochemical  data  consistent  with 
the  assumptions  utilized  in  the  RAMP  program  formulation.  The  assump¬ 
tions  being  addressed  in  the  RAMP  program  are: 

•  The  total  mass  of  the  mixture  is  constant. 

•  The  total  energy  of  the  mixture  is  constant. 

•  The  gas  obeys  the  perfect  gas  law  and  is  either  chemically 
frozen,  in  chemical  non  -  equilibrium  or  in  chemical  equilibrium. 

•  There  is  no  mass  exchange  between  the  phases. 

•  The  particles  are  inert. 

In  the  modified  TRAN72  calculational  scheme,  the  chamber  calculations 
are  performed  initially  with  the  condensed  species  considered.  The  total  mass 
and  total  enthalpy  of  the  mixture  are  then  adjusted  by  removing  the  mass  and 
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enthalpy  associated  with  the  condensed  species  predicted  to  exist  in  the 
chamber  after  combustion.  The  total  mass  adjustment  is  made  by  re¬ 
moving  the  appropriate  amount  of  mass  of  each  of  the  elements  which 
comprise  the  condensed  species  that  exist  in  the  chamber.  The  total 
enthalpy  is  adjusted  by  removing  the  enthalpy  associated  with  the  con¬ 
densed  species  that  exist  in  the  chamber.  Next,  the  adjusted  elemental 
mass  balance  relationships  and  the  adjusted  total  enthalpy  are  referenced 
to  the  adjusted  total  mass  of  the  mixture.  All  condensed  species  are  then 
removed  from  the  list  of  possible  products  being  considered  by  the  program. 
The  chamber  calculations  and  subsequent  equilibrium  chemistry  expansion 
are  then  made  with  a  gaseous -only  composition.  When  the  thermodynamic 
calculations  are  completed,  the  transport  properties  are  calculated  in  the 
manner  described  in  Ref.  1.  The  resultant  equilibrium  chemistry  expansion 
and  cor r esponding  transport  properties  data  are  for  the  case  in  which  there 
is  no  heat  transfer  between  the  condensed  and  gaseous  species  during  the 
equilibirum  chemistry  expansion  process.  To  account  for  the  effects  of  the 
heat  transfer  that  does  take  place  between  the  condensed  and  gaseous  species 
during  the  flowfield  calculations,  additional  thermochemical  data  are  required. 
To  generate  the  required  data,  the  total  enthalpy  of  the  gaseous -only  mixture 
is  perturbed  (mass  is  held  constant)  and  the  thermochemical  data  calculational 
scheme  is  repeated.  The  total  enthalpy  is  repeatedly  perturbed;  the  result 
being  an  array  of  equilibrium  expansion  processes  and  corresponding  trans¬ 
port  properties,  each  with  a  different  degree  of  heat  transfer  between  the 
two  phases. 

Experience  in  thermodynamical  modeling  of  rocket  exhaust  flows  has 
indicated  that  many  chemical  systems  experience  a  transition  from  equi¬ 
librium  to  frozen  chemistry  during  the  expansion  process.  The  standard 
TRAN72  program  has  an  option  to  treat  this  problem.  Under  the  pressure 
freeze  option  the  chamber  and  initial  expansion  calculations  are  made  as¬ 
suming  equilibrium  chemistry.  At  a  predetermined  pressure  ratio  (chamber 
to  local  static),  the  chemistry  of  the  system  is  frozen  and  the  remainder  of 
the  expansion  is  completed  with  frozen  chemistry.  With  this  option,  the 
transport  properties  are  calculated  as  outlined  in  Ref.  1. 
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The  thermochemical  and  transport  data  are  communicated  to  the  RAMP 
computer  program  automatically  through  the  use  of  a  magnetic  tape  (or  rapid 
access  storage,  i.e.,  disk,  FASTRAN,  etc.).  Creation  of  the  data  tape  (or  file) 
is  accomplished  by  means  of  an  additional  subroutine  (MOCDAT)  added  to  the 
TRAN72  program.  Logic  is  provided  in  this  routine  for  creation  of  a  new 
data  tape  (or  file)  and  adding  data  to  an  existing  Master  data  list.  Each  data 
case  must  be  identified  with  a  unique  case  name  which  is  subsequently  used 
by  the  RAMP  (see  card  8  of  RAMP  input  guide)  program  to  determine  if 
thermodynamic  data  are  available.  An  additional  namelist  has  been  added 
to  the  run  stream  to  control  use  of  the  options  available  in  the  MOCDAT 
subroutine . 

The  modified  TRAN72  program  is  used  to  generate  thermodynamic  and 
transport  properties  of  the  gaseous  phase  of  the  products  of  combustion  being 
considered  in  a  two-phase  flow  analysis.  Control  of  the  program  function  for 
this  application  is  handled  through  three  input  groups;  the  reactant  data  cards, 
the  $INPT2  namelist,  and  the  $RKTINP  namelist.  A  detailed  description  of 
the  standard  TRAN72  program  input  is  given  in  Ref.  1.  Thermodynamic  data 
required  for  this  application  are  calculated  using  the  RKT  option  under  the 
$INPT2  namelist.  Selection  of  this  option  permits  calculation  of  theoretical 
rocket  performance  for  both  equilibrium  and  frozen  compositions  during  ex¬ 
pansions.  The  variables  MOC2P,  PARTHT,  QDOTP  and  NQI  have  been  added 
to  the  $INPT2  namelist.  The  MOC2P  variable  controls  the  selection  of  the 
two-phase  flow  analysis  option  (MOC2P=T).  The  variables  PARTHT,  QDOTP 
and  NQI  control  the  selection  (PARTHT  =  T)  and  use  of  the  variable  total  en¬ 
thalpy  option  when  the  effects  of  heat  transfer  between  the  condensed  and 
gaseous  species  are  to  be  determined  in  a  two-phase  flow  analysis.  When 
PARTHT=T,  QDOTP  is  set  equal  to  the  amount  by  which  the  total  enthalpy 
of  the  gaseous  only  mixture  is  to  be  perturbed.  NQI  is  set  equal  to  the  number 
of  QDOTP  values  input.  The  specific  values  of  the  ratio  of  chamber  to  local 
static  pressures  (P  /P)  at  which  thermodynamic  and  transport  data  are  gen¬ 
erated  are  input  to  the  program  in  the  $RKTINP  namelist.  The  pressure  freeze 
opt  ion  is  activated  by  setting  the  variable  NFZ  under  the  $RKTINP  namelist 
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equal  to  the  number  of  the  pressure  ratio  at  which  transition  from  equilibrium 
to  frozen  chemistry  is  to  occur.  (The  chamber  is  considered  to  be  number 
one.  the  throat  number  two.  etc.).  Freeze  pressures  may  be  the  chamber 
value  or  any  supersonic  pressure.  No  provision  i  s  made  for  freeze  pressures 
between  chamber  and  throat.  The  parameters  which  are  generally  utilized  by 
the  RAMP  program  are  local  Mach  number,  static  pressure  and  temperature, 
isentropic  coefficient  (gamma),  molecular  weight,  entropy,  Prandtl  number, 
viscosity,  specific  heat  at  constant  pressure  and  the  total  enthalpy  (gas  only). 
These  parameters,  with  the  exception  of  the  total  enthalpy,  are  calculated  for 
each  value  of  (P  ,/P)  rat  io  by  the  program.  A  detailed  description  of  the  logic 
involved  in  the  standard  TRAN72  program  computation  is  presented  in  flow 
chart  form  in  Ref.  1.  This  information  can  be  consulted  for  an  in-depth  under¬ 
standing  of  the  calculational  scheme. 

To  automatically  create  a  tape  for  communication  with  the  RAMP  pro¬ 
gram  requires  that  one  of  the  two  tape -write  options  be  selected  (MOCT-T, 
or  MOCTF-T)  under  the  $INPT2  namelist.  The  MOCT  variable  is  utilized 
when  the  thermochem  data  arc  to  be  run  completely  under  the  equilibrium 
assumption.  The  MOCTF  variable  is  utilized  when  the  thermochem  data  are 
to  be  run  completely  or  partially  frozen.  If  one  01  these  options  is  selected 
an  additional  namelist,  $TAPGEN.  must  be  input  to  control  the  tape-write 
function  and  the  input  of  the  case  name  card.  The  JTAPGEN  data  are  input 
after  the  $[NP7.1  data  but  prior  to  the  case  name  card  and  $RKTINP  namelist 
inputs.  Table  2  -1  summarizes  the  program  variables  added  to  the  modified 
TRAN72  program. 

Four  example  cases  showing  the  required  input  format  and  resultant 
output  for  creation  of  thermodynamic  data  for  typical  rocket  performance 
problems  are  presented  in  Table  2-2.  Case  1  is  the  required  input  to  perform 
a  calculation  of  theoretical  rocket  performance  for  both  the  equilibrium  and 
frozen  c  imposition  assumptions  during  an  isentropic  expansion.  (No  tape  is 
generated.)  Case  2  is  the  same  as  Case  1  except  that  a  tape  for  communica¬ 
tion  with  other  programs  is  generated  for  the  frozen  composition  assumption 
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Table  2-1 


ADDITIONAL  INPUT  VARIABLES  FOR  MODIFIED*  TRAN72  PROGRAM 


$INPT2  NAMELIST 

Value 

Variable 

Dimens  ion 

Type 

Label 

_  . 

B  efore 

Comment 

Read 

MOCT 

1 

L 

HREC 

F 

Selects  tape -write  option 
if  true  for  equil.run. 

MOC2P 

1 

L 

HR  EC 

F 

Selects  two-phase  flow 
analysis  option  if  true. 

MOCTF 

1 

L 

HREC 

F 

Selects  tape-write  option 
if  true  for  frozen  and 

pressure  freeze  options. 

PARTHT 

1 

L 

TWOPAS 

F 

Selects  variable  total 

enthalpy  option  if  true 
for  two-phase  analysis 

QDOTP** 

run. 

26 

R 

TWOPAS 

0.0 

Set  equal  to  the  amount 
by  which  the  total  enthalpy 
of  the  gaseous-only  mix¬ 
ture  is  to  be  perturbed. 

NQI 

1 

I 

TWOPAS 

0 

Set  equal  to  the  number 
of  QDOTP  values  input. 

|  $TA PGFN  NAMELIST 

IREAD 

1 

I 

1 

If  equal  0,  new  data  added 
to  master  data  tape  list; 
if  equal  1  data  written  on 
new  data  tape. 

IO 

I 

I 

— 

8 

Tape  unit  of  old  master 
tape  list. 

*** 

IN 

1 

I 

10 

Tape  unit  of  new  data  tape. 

Case  Name  Card 

Format:  6A4 

Routines  modified  from  the  original  TRAN72  program  are:  LINK.MAINl 
REACT,  SEARCH,  EQLBRM ,  ROCKET,  RKTOUT,  OUT1.  TRANSP,  OUT. 

The  values  of  QDOTP  must  always  be  input  in  ascending  order  (from  the 
most  negative  to  the  most  positive). 

**  * 

When  running  multiple  cases,  the  data  of  the  last  case  must  always  be 
placed  on  tape  unit  10  if  it  is  to  be  communicated  automatically  to  the 
RAMP  or  VOFMOC  programs. 
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during  expansion  (MOCTF=T).  Case  3  is  the  required  input  format  for 
creation  of  thermodynamic  data  for  use  with  the  RAMP  program  (MOC2P-T); 
a  tape  is  generated  for  the  equilibrium  composition  assumption  during  the 
isentropic  expansion  (MOCT=T).  (The  effects  of  heat  transfer  between  the 
condensed  and  gaseous  species  are  not  determined.)  Finally,  Case  4  is  the 
same  as  Case  3  except  that  the  effects  of  heat  transfer  between  the  condensed 
and  gaseous  species  are  determined  (PARTHT=T). 

2.2  USE  OF  THE  MODIFIED  TRAN72  PROGRAM  WITH  THE  VOFMOC 
PROGRAM 

The  TRAN72  program  has  been  modified  to  meet  the  requirements  of 
the  RAMP  computer  program.  The  data  tape  (or  file)  created  for  communi¬ 
cation  with  the  RAMP  program  contains  additional  data  not  required  by  the 
VOFMOC  program  (Ref.  6).  For  that  reason,  the  tape  read  statement  and 
format  statement  in  subroutines  GASTAP  and  GASRD,  respectively,  must  be 
modified  to  read  the  additional  data  as  "dummy"  variables.  The  following 
statements  must  be  changed  in  the  above  subroutines  before  the  data  tape 
generated  by  the  TRAN72  program  can  be  read  correctly  by  the  VOFMOC 
program. 

•  Subroutine  GASRD 

Old  Statement:  1  FORMAT  <  4A6  »  5X  *  A  3  *6X  .  I  2. 3Xi  I  2  > 

New  Statement:  i  format  (  6A4 , 5X  » A  3  » OX  .  I  3X»  1  2  ) 

•  Subroutine  GASTAP 

Old  Statement:  10  READ  (  10)  <BETA<  I)»l*l«4)»l  OF  •  I  £> 

New  Statement:  10  READ  <  1 0  )  (  BETA  l  I)  *  l  =  1  •  4 )  .DU«DU«  10F .  I S 

No  other  limitations  are  placed  on  the  use  of  the  modified  TRAN72  program. 
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Table  2-2 


EXAMPLE  CASES  SHOWING  THE  REQUIRED  INPUT  FORMAT 
FOR  CREATION  OF  THERMODYNAMIC  DATA  FOR  TYPICAL 
ROCKET  PERFORMANCE  PROBLEMS 

Case  1:  Required  input  to  perform  a  calculation  of  theroretical  rocket 
performance  for  both  the  equilibrium  and  frozen  composition 
assumptions  during  expansion.  (No  tape  is  generated.  ) 


AC  T  AN T S 

H  ct.00  1*00  0*0 

0  t.oc  1.00  0*0  o^-ya.l^ 

(Insert  Blank  Card) 

NaMLL 1 bTs 
ilNPTt 

r=  r  .Pbi  a  -  r  »nAoc  =  oooo i  .p=t-ou* oo  .ui-  =  t .•■'ii x=o.o 

I  1 NP 

1  0  •  « JO •  «  -oO  »  «  i  00  • »O00. . 1000*  »  LOQO  *  •  ^0000  » •  1 00000 •• 300000  * 

iLwu 
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Resultant  Output  for  Case 


I 


Kn  a 

i  3  O  j 

4  ♦  ♦  ♦ 

41  -J  3  -*J 
)  J  »  I 
1-444 
1  ;j  J  o 
1  1  )  .» 
1  3  ‘4  3 
V  ill 

♦  »  j  o 

5  }  5  i 

*  •  •  • 


3  o  n 

CJ  b  :4 
♦  ♦  «  ♦ 

4j  J  ai  4i  . 
j  O  4  j 
>44-4 
3  J  J  'J 
_i  -i  r>  i 
3  d  3 
*i  i  :.  » 

)  J  >  3 

3  4  £  4 


>  u  i  a 

>  »  )  i 

4  ♦  ♦  ♦ 

il  J  4  J 

5  3  3  3 

3)33 

U  <4  4  3 


,3  *4  i  .3  : 
*4  4  ’*  4 

•  ♦  ♦  ♦ 

J  4  4  4 

1  >  1  1 
3  3  i)  4 
j  o  :>  J 


>1  ♦  ♦  ♦ 

L  J  4  4 


3  3  0  3  ‘ 

J  >  3  I 

♦  ♦  4  ♦  < 

4  4  4  4 

-4  >  O  v 

..»  J  .4 

>  *  >  -» 

>14) 

3  I  <»  4  ■ 

•*>  3  ;»  3 

I  3  3  » 

3  4  3  0 


3  *4  I  1  1  n  1  3  }»  3  ) 

U  I)  •>  3  '3  <3  <4  '4  ‘»  )  O  1 

♦  ♦  «  ♦  ♦  ♦  t  ♦  ♦♦♦ 

J  4  4JJ4444IJ4 
I  I  O  I  •*  4  >  •*  3  -4  -J 
13  3  '  >  3  3  t  }  3  t  1 
•-•  •  3  4  C*  S  O  J-  O  C  O  O 

J  >  3  *»  >  >  .1  «i  ;>  O  » 

1  l  *3  v»  J  'J  -J  •  >  .1  I  )  , 

J  >  3  •>  >  4  I  I  ,#  4  3 

i  >  3  »  *  »  J  »  •>  4 

>'3  J  >  >  W  J  3  p  )  3 


3  3 

A3  3  *  ■  • 

-  3  >  - 

-  3  3  A  } 

<  •  •  -  1 

—  V  '4  J  - 

O  J  A  J 

«  r  i  a 

3  c  •*  -t 

/  £  3  4  4  - 


!•!•••• 

I  rj  >  D  3  3  '» 

!  O  r>  O  O  '1 

♦  *♦♦♦♦ 

'-4  a)  J  >J  -J  aJ 

.13  )  4  J  4 

*■4  3  4  J  -J  J 
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■  '334  )  3  3 
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I  COO 
t  •  i 
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3  >  .3  3  4  O 

•  *  I  '3 

)>'>->)) 
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u  1>  )  >  ■:  I) 

1  >  3  1  >  > 
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1-4)4 
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4  ♦  4f  ♦ 
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1  *>  1  *> 
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4  -4  >  3 
*1  4  <3  O 

4  0  4  4 
)  •«  i  4 
U  o  I  I 
till 

*  •  i  • 


)  1  *3 

»  4  >  4 

♦  ♦  ♦ 
j  <i  j  j 
•*  -3  .3  J 

4  )  .]  > 

"1  O  -4  J 

»  )  >4 

)  O  }  t, 

>  4  JO 

3  J  I  4 

4  3)4 


-  3  )  «1 

U  O  4  *4 
♦  ♦  «  ♦ 
>/  4  4  4 
J  O  4  V4 

4  -4  )  « 
O  *»  *3  O 
I  i  4  3 
M  1  |  4 
1114 
3  O  |  1 
•O  -4  .4  *3 

•  •  i  • 


<4.  I*.  4.  *.  '*}  U  *» 

•  I 

*  •  *  *  T  “  “ 


j  < 

*.  4.  C  - 

1  A  >4  r. 
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Resultant  Output  lor  Case  !  fCont'cM 


0  -*  <1  o 

J  >  )  3 

♦  +  ♦  ♦ 

I  4)  «l  J  J 

i  o  o  n  o 

-  i *  .>  t*  <t> 

•  < j  >  •»  a 

i  j  )  j  a 

i  o  u  o  ^ 

»  >  3  •)  3 

3  >  1  5 

>  >  >  3 


♦  *  ►  #  *  mm 

1  1  3  r>  >t)  *>  ) 

«>  o  <6  a  j  j  a  ♦ 

♦  ♦  i  *  ♦  ♦  ♦ 

jJ  J  J  J  J  J 

»  •  i  1;  r»  J  »  T 

•  >  i  il  J  ?  )  .* 

•  Q  f5  t  •>(.'  u  O 

»  >;>»?>•> 

3  i  (>  >  >1  1 

'■>'>11  »  »  >  » 

.  3  -3  P  J  >  »  » 


U.  i*.  ►-  a.  *.  1.  **.  Vfc 


U  rt  -  4- 

\  S  \ 

r  >  ■*>  6 


J  3  -3  |  >  '»N  ' 

1  O  0  3  <i  «  >  . 
♦♦♦«♦♦* 

U  J  i)  «  *1  »l  J 

J  i  <J  9  t  J  I 

3  3  »  3  I  I  3 

o  ^  C  £  0  O  w 

1  S  ♦  >  '  3  I 


I  >  >  ?  >  »  > 
}  3  3  >  )  3  > 
3  J  O  i  3  3  - 
•  •  •  4  •  ■  • 


•  -  n  ^  j  « 

j  ?  e  3  r  > 

-  3  fc  «  J3  J 

'I  .1  <•  *  L 


j  J  ^  rr  :> 
3  :>  3  3  t  1 
y  t  u  ~  3.  3 


►-  “N  < 

*  _l  >  3 
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Resultant  Output  for  Case  1  (Cont'd) 


ultant  Output  for  Cas 


m  iMvoiyn  in  ^n*  i»toi  Nt  jn  nou 
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Table  2-2  (Continued! 


Case  2:  Same  as  Case  1  except  that  a  tape  for  communication  with  other 
programs  is  generated  for  the  frozen  composition  assumption 
during  expansion  (MOCTF=T). 


nccAo  T  ants 

H  <l.OO  1.00  0.0  0298. lb 

O  2.00  1.00  0*0  o298.1o 

(Insert  Blank  Card) 

NANiC-L  Ibis 
i iNHlc 

KNT  =  T  . Kb  I  A  =  T *  xAoc-OOOO 1  «  P  =  800 . OO • OP  =  1  «Ni X  =  8. 0  *  MOO  T  P = T 

iL.-iU 
4  T  <-U->ot_N 

Aua  1  *  l  u  =  8t  liM  =  10 

C  ASL  A 
i>PiN  T  1  NP* 

^cPMO.iJO.cjU.  ,  iUQ.  *300.  «  1  OOO  .  .  bOOO  •  .  bOOOO  *  »  1  00000*  .  bOOOOO  • 
i>L  1  ip 
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The  resultant  output  for  Case  2  is  identical  to  that  of  Case  1  except 
for  a  listing  of  the  data  placed  on  tape  for  communication  with  other  pro¬ 
grams.  The  following  is  a  listing  of  that  data. 
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Resultant  Ou' put 
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Table  2-2  (Cont'd) 


Case  3:  Required  input  for  creation  of  thermodynamic  data  for  use  with  the 

RAMP  program  (MOC2P-T);  a  tape  is  generated  for  the  equilibrium 
composition  assumption  during  expansion  (MOCT  =  T).  (The  effects 
of  heat  transfer  between  the  condensed  and  gaseous  species  are  not 
determined.) 
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Resultant  Output  for  Case  1  (Cont'd) 
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Resultant  Output  for  Case  3  (Cont’d) 
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Table  2-2  (Continued) 


Case  4  :  Same  as  Case  3  except  that  the  effects  of  heat  transfer  between 

the  condensed  and  gaseous  specins  arc  determined  (P\RTHT  =  T). 
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Resultant  Output  for  Case  4  (Cont'd) 
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Section  3 

REACTING  AND  MULTIPHASE  (RAMP)  COMPUTER  PROGRAM 

A  precise  knowledge  of  local  flow  properties  in  nozzles  and  exhaust 
plumes  is  necessary  for  performance,  radiation,  attenuation,  heat  transfer 
and  impingement  analyses.  The  reacting  and  multiphase  (RAMP)  computer 
program  is  designed  to  give  detailed  flowfield  information  in  the  supersonic 
region  of  a  reacting  multiphase  two-dimensional  or  axisymmetric  flow  field. 

The  boundaries  of  the  flow  field  may  be  solid  such  as  in  a  nozzle  or  "free" 
such  as  in  a  plume.  The  analysis  may  be  utilized  therefore  to  predict  per¬ 
formances  as  well  as  plume  characteristics  of  a  given  engine  system.  A 
printed  record  of  the  program  results  is  given  for  user  inspection  while  a 
binary  tape  is  provided  for  subsequent  manipulation  by  other  analyses.  A 
transonic  solution  taken  from  Ref.  7  is  also  provided  internal  to  the  program. 

The  flow  of  a  gas-particle  mixture  is  described  by  the  equations  for 
conservation  of  mass,  conservation  of  momentum  and  conservation  of  energy. 

In  the  gaseous  phase  the  state  variables  P,  p,  R  and  T  are  related  by  the  equation 
of  state  while  for  the  particulate  phase  the  equations  are  for  the  particle  drag, 
particle  heat  balance  and  the  particle  equation  of  state.  Development  of  these 
equations  is  based  on  the  following  assumptions: 

1.  The  particles  are  spherical  in  shape. 

2.  The  particle  internal  temperature  is  uniform. 

3.  The  gas  and  particles  exchange  thermal  energy  by  convection 
and  radiation  (optional). 

4.  The  gas  obeys  the  perfect  gas  law  and  is  either  frozen  and/or 
in  chemical  equilibrium,  or  is  in  chemical  non-equilibrium. 

5.  The  pressure  of  the  gas  and  the  drag  of  the  particles  contribute 
to  the  force  acting  on  the  control  volume. 
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6.  The  gas  is  inviscid  except  for  the  drag  it  exerts  on  the  particles. 

7.  There  are  no  particle  interactions. 

8.  The  volume  occupied  by  the  particles  is  negligible. 

9-  There  is  no  mass  exchange  between  the  phases. 

10.  A  discrete  number  of  particles,  each  of  different  size  or  chemical 
species,  is  chosen  to  represent  the  actual  continuous  particle 
distribution. 

11.  The  particles  are  inert. 

The  supersonic  two-phase  solution  accepts  the  starting  line  provided  by 
the  internally  calculated  transonic  solution  as  well  as  other  pertinent  data 
supplied  through  the  read  function.  The  equations  of  motion  under  the  assump¬ 
tions  just  listed  are  hyperbolic  and  permit  the  use  of  a  forward  marching 
scheme;  a  streamline/normal  grid  structure  is  employed  where  the  step 
lengths  in  the  axial  and  radial  directions  are  under  program  control.  Both 
BCD  (printer)  and  unformatted  binary  output  tapes  are  produced.  A  Prandtl- 
Meyer  expansion  of  the  gas  phase  and  a  free  boundary  calculation  are  employed 
to  treat  the  plume  flow  solution.  The  run  is  terminated  when  prespecified 
problem  limits  are  reached. 

The  two- phase  flow  analysis  will  treat  an  extremely  wide  range  of 
operating  conditions.  With  few  exceptions  the  limitations  are  imposed  by  the 
theory  rather  than  numerical  considerations.  In  this  discussion  dimension 
statement  sizes  which  are  arbitrarily  set  are  not  considered  a  limitation. 

The  true  limitations  are; 

•  Supersonic  regions  influenced  by  embedded  subsonic 
regions . 

•  Vacuum  or  limiting  expansion  limitation  —  a  small 
region  of  the  expansion  fan  for  a  vacuum  expansion 
cannot  be  treated  where  the  Mach  number  is  so  large 
that  treatment  by  continuous  flow  assumptions  becomes 
meaningless  (this  limitation  is  both  numerical  and 
theoretical). 
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•  For  two-  pha  se  flow  the  lower  boundary  can  only  be 
horizontal  (i.e.,  nozzle  centerline). 

A  complete  derivation  of  the  governing  equations  are  available  in 
Volume  I  of  this  report.  The  characteristic  equations  employed  in  this 
aralysis  are  given  in  Table  3- la  and  3- lb,  and  a  list  of  symbols  is  provided 
in  Table  3-2. 

A  free  molecular  flow  calculation  has  been  provided  as  an  option  which 
permits  treatment  of  the  rarefied  regions  of  the  plume.  As  the  gas  expands 
it  first  freezes  out  the  vibrational  and  rotational  modes.  During  this  transi¬ 
tion  the  characteristic  equations  continue  to  be  employed  but  the  equation  of 
state  is  modified.  At  translational  freezing,  however,  the  solution  switches 
to  an  effective  source  solution.  The  stream  lines  are  considered  straight 
and  the  velocity  constant.  Conservation  of  mass  then  determines  the  density 
while  other  properties  are  found  from  the  equation  of  state. 

Each  of  the  subroutines  comprising  the  RAMP  program  is  listed  in 
Table  3-3.  The  subroutines  which  call  and  are  called  by  the  particular 
routine  as  well  as  a  brief  statement  regarding  the  function  of  the  routine  are 
also  included  in  the  table.  Routines  which  have  an  asterisk  in  the  description 
column  are  taken  from  the  Ref.  7  analysis. 

Tables  3 -4a  and  3 -4b  present  a  flow  chart  of  the  main  routines  in  func¬ 
tional  groupings  for  the  equilibrium  and  finite  rate  versions.  To  attempt  to 
completely  flow  chart  the  entire  program  would  probably  transmit  less  infor¬ 
mation  than  that  given  in  Table  3-4  since  it  would  be  extremely  complex  and 
bulky.  The  functional  flow  chart  in  conjunction  with  Table  3-3  and  the  pro¬ 
gram  listing  is  felt  to  be  the  most  appropriate  method  for  presenting  the 
information. 
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Tahir  '-la 


I  N  VUAU'Y  K’N  l'KOPY  -Vl-JI.OCITY  h  OHM  OK  TUK  GOMPATUMl.ITY  EQUATIONS  Y  OH  GAS  PARTICLE 
|  I.DW  (KOH  ClILMH  A I .  KQUIUI3RIUM  AND  OH  KRO/.KN  l- LOW  APPLK  AllONS) 

#  Tlx*  v.iriabl«*H  q.  ».  IK  vf,  h*  completely  delme  t  ho  gas -p«  rude  flow  at  a  itiv.-n  location 

in  the  ll-»w  firltl. 

•  The  slope  «»l  Ihe  gus  streamline.  0,  is  given  by 


sly. 

dx 


-  tan0 


|5.h 


and  the  compatibility  equations  which  apply  along  gas  streamlines  are 

NP 
P 


dll 


Tds*p  E  [*u  ■ +  ian9  (v  - v^| d!i  -  o 
jo 


(3.2, 


|l.  -  R, 


T  dS - B-v— g  T* P1  A’  B!  dx  -  0 

q  cosft  OR  4—,  I 


JO 


q.  Ap  -  q>  'Aq>  +icj  |Tj 


(TJ  -  T) 


+  — t-—. — r  Igi  (T^J  A 

A)  ml  r)  l  Jl 


(3.3, 


(3.4, 


Of  K(i 


i‘  ]  ,2 

(r', 


(3.5, 


-j  _  kJi 


(3.6, 


•  The  slope  of  the  Mach  lines  is  given  by 


^  5  tan (0  +o> 

dx 


I  3.7! 


and  the  compatibility  equations  which  apply  along  each  Mach  line  are: 


.  enter  sino  rose  dS  ~r  cota  dH  —  A  #in0  sino  dx 

dQ  +  — - —  dq  ♦  - -  +  - -5 -  + - - 

q  >B  q2  y  cos  19+0, 


pq^co®  (0  +ot) 


r 

— zl  p'  A'  - <v  • vi 


l,  COB  (6+0,  +  (U  -  u'l  Bin  (9  +  Q,  + 


q  sino 


(3.81 


•  The  particle  streamline  direction,  9^,  is  given  by 


£  *  4  =  j  - 


-r  -  --  =  »—«  j  •  l.  NP 

dx  1  } 

u 

and  the  c nmpat ibility  equations  which  apply  along  particle  streamline®  are: 


091 


U^  dh^  r 


u’ du^  = 

A1  /„  II1, 

dx 

» =  1 

.  NP 

u  ^  dv^  2 

A  •  (v  •  vJ> 

dx 

i  -  1 

.  NP 

C j  (T*  T) 

1  ,0  1 

I 

,  * 

cr, 

■  0  ^  T* 

1 

r 

dx  j  =  1.  NP 


(3.10! 
(3.1  D 

(3  12» 


One  additional  equation  for  particle  density  is  derived  using  the  integral  equation  for  particle 
mas®  conservation 

Hrh'  =•  (2jrl^p^|u^  ly^l  dy1  -  (y*)  dx^j 

and  6  take®  on  the  values 

6  r  0  for  2  dimensional  flow 
I  for  axt*ymmetric  flow 


O  - 1  -3! 
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Table  J-  lb 

PRESSURE  PE NSITY- VELOCITY  FORM  OF  THE  COMPATIBILITY  EQUATIONS  FOR  O  AS  -  PAR  TIC  LE 
FLOW  (FOR  CHEMICAL  NON -EQUILIBRIUM  AN1>  TRANSITION  FLOW  APPLICATIONS! 

•  Ihe  variable®  q,  6.  P.p./r.tA  v^.h^  completely  define*  the  gas-  particle  flow  at  a  given  location  in  the 
fl  »w  Held 


The  ®li*pe  of  the  gas  streamline,  0,  is  given  by 

^  ,  tan9 
dx 

and  the  compatibility  equations  which  apply  along  gas  streamlines  are: 


q  dq  +  ^  +  P 1  l(u  -  t*^1  +  „  (v  ‘  d*  -  0  . 

j’1  1  1 

4,  NP 

dP-  a2  dp  +-ldx-i.y>pj  Aj  B-j  dx  =  0 


The  slope  of  the  Mach  lines  (left  running  characteristics  and  right  running  characteristics) 
is  given  by 


and  the  compatibility  equations  which  apply  along  each  Mach  line  are; 


Ja  T  -  dP  —  6*in9  sina  dx  dx  V” 

d9  +  c  ota  + - — +  - - — —  1 

Pq  ycos(9+a)  Pq^cos(9+a) 


^  P^  A*  i  (v  -  v>)  cos(0  +a) 

j=l 


dx  * 


4  (u  •  ujl  a  in  (8  +at  4  I  4  — I - — - — — — 

q  J  q  sina  cos(0  Fa) 


The  particle  streamline  direction,  8J,  is  given  by 

;  t*n»>  j  -  1.  NP 
UJ 

and  the  compatibility  equations  which  apply  along  particle  streamlines  are: 


du^  =  A^  (u  -  u-h  dx  j  s  1,NP 

u^  dv^  =  (v  -  v^)  dx  j  a  1,  NP 


u-'dh-’  =  -  ||  Aj  C>  (T>  -  T)  4  ~ J*—  (T^|4  -  a’  T4jj  dx  j  =  l.NP 

One  additional  equation  for  particle  density  is  derived  using  the  integral  equation  for  particle 
mass  conservation 

dm^  a  (Z»)^  pj  |u*  (y^>  dy^  -  (y^l  dx^j 


and  A  takes  on  the  values 


6  =  0  for  2  dimensional  flow 

1  for  axisymmetric  flow 


LQcaMtio  Munttvitu  0kmahcm  *  tmamitm  cwtw 


»  r 


ry 

ii 


Tabic  1-2 

LIST  OF  SYMBOLS 


Symbol 

English 

Metric 

Description 

Aj 

Bi 

l/sec 
ft^/ sec^ 

1  /sec 

2,  2 
m  /sec 

Defined  in  Table  3-1 

Defined  in  Table  3-1 

ft^/ sec^/°R 

2  /  2  /o„ 

m  /sec  /  K 

Defined  in  Table  3-1 

c 

n 

ft^/sec^/°R 

m  /sec  /  K 

Gas  specific  heat  at  constant 

r* 

pressure 

€  * 

None 

None 

Emissivity 

N  one 

None 

Drag  coefficient  parameter 

“^^StokJ 

GJ 

None 

None 

Nusselt  number  parameter 
(Nu/Nu  gt  okes) 

H 

/  2 
ft  /sec 

2  /  2 
m  /sec 

Total  Enthalpy 

Ir* 

ft^/ sec^ 

2  /  2 
m  /sec 

Particle  enthalpy 

mJ 

slug/ft  ^ 

kg/m3 

tfl 

Mass  density  of  a  j  particle 

NP,NG 

None 

None 

Number  of  particle  sizes,  number 
of  gaseous  species 

Pr 

None 

None 

Prandtl  number 

q 

ft/ sec 

m/ sec 

Velocity 

R 

ft^/ sec^/°R 

2  /  2  /Oy. 

m  /sec  /  K 

Gas  "constant"  (universal  gas 
constant/molecular  weight) 

rj 

ft 

m 

Radius  of  a  j*  particle 

s 

ft^/sec^/°R 

2  /  2  /Ow. 

m  /sec  /  K 

Entropy 

T 

°R 

°K 

Static  temperature 

TJ 

°R 

°K 

Particle  temperature 

u 

ft/ sec 

m/ sec 

Gas  axial  velocity  component 

V 

ft/sec 

m/ sec 

Gas  radial  velocity  component 

uj 

ft/sec 

m/sec 

Particle  axial  velocity 

yj 

ft/sec 

m/ sec 

Particle  radial  velocity 

y,  x 

ft 

m 

Radial,  axial  coordinates 

A 

i 


J 


[ 

{ 

! 
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LIST  OF  SYMBOLS  (Continued) 


Symbol 

English 

Metric 

Description 

T 

o 

°R 

°K 

Local  total  temperature 

T 

°R 

°R 

°K 

Reference  total  temperature 

a 

rad 

rad 

Mach  angle 

~  i 
aJ 

None 

None 

Accommodation  coefficient 

r 

None 

None 

Isentropic  exponent 

Aqj 

ft/ sec 

m/  sec 

q 

6 

None 

None 

0  —  two-dimensional, 

1  —  axi  symmetric 

e 

rad 

rad 

Flow  Angle 

V 

lbf-sec/ft2 

kg/m  sec 

Gas  viscosity 

p 

slug/ft3 

kg/m3 

Density 

pj 

slug/ft3 

kg/m3 

Particle  density  (jth  particle 
size) 

o 

ft  / sec 

m^/sec3 

Stefan -Boltzmann  constant 

Not  used 

cal/gm 

Chemical  potential  of  specie  i 

*i 

Not  used 

gm/ gm 

Mass  fraction  of  specie  i 
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Table  3-3 

RAMP  PROGRAM  SUBROUTINE  LIST 


Su  b  r  < 
No. 

•lit  met 

Name 

Calls  Following 
Routine(sl 

Called  by  Following 
Routinefsl 

Dfsc  ripti  on 

1 

ABC  ALC 

- 

27 

* 

- 

AUJ1NT 

- 

18.  31 

log -log  interpolation  routine 

' 

AO AST R 

82.  98.  1 16. 44. 22 

74 

iterative  solution  of  area  ratio  as  a  function 
of  Mach  number 

4 

AVERAG 

98.  21.  106.  83.  94 

95 

determines  flow  regime  from  Knudsen 
number 

3 

blkdat 

- 

- 

block  data  routine 

6 

BOUND 

47 

7.  30.  49.  55.  70.  71 .  74.  95 

provides  radial  dimension  and  angle  of 
bounding  wall  at  given  axial  station 

? 

BOl’NDA 

4  1.6.  23. 46 

70.  72.  92 

locates  wall  point  when  a  shock  wave  is 
near  a  wall 

8 

CAKC l  R 

77.  98.  12.  84.  1  1  , 

72.  89.  91.  92 

solves  an  interior  point  compatibility  equa¬ 
tion  for  a  downstream  shock  wave  point 

4 

(V  am 

- 

27 

* 

It 

CHECK 

t>9.  tS,  31 

70.  95 

adds  points  to  or  deletes  points  from  the 
solution  as  necessary 

1  1 

CM  EM 

102, 85. 88 

9b 

computes  the  species  net  rates  of  pro¬ 
duction  as  functions  of  temperature, 
density  and  gas  composition 

12 

COEFKO 

- 

8.  55.  96 

computes  coefficients  used  in  solution  of 
the  two-phase  compatibility  equations 

1  1 

COEFF 3 

35,  69.  41.  77.  31 

55.  95 

computes  the  particle  flow  properties 

(4 

DELTAF 

- 

24.  115 

cmnputea  the  ‘urning  angle  through  an 
oblique  shock  wave 

1  s 

DMDXS1 

- 

- 

dummy  routine  not  presently  used 

If 

DOT PRD 

- 

112 

computes  the  dot  product  of  two  vectors 

17 

DR  AC, CP 

~ 

31.  77 

computes  the  drag  coefficient  for  the  solid 
particle  using  Kliegcl 

1H 

DR  AG  MR 

2 

31.  60.  b5.  77.  107 

computes  the  drag  coefficient  for  the  solid 
particle  using  Crowe 

l 9 

DRIVER 

40.  74.  108.  70 

51 

driving  routine  tor  mam  program  flow 

20 

EMOF'P 

- 

81 

calculates  Mach  number  from  pressure 
and  entropy 

2  1 

EMOFV 

106 

4.  24.  26,  31.  34,  52.  63. 

66.  70.  73.  77.  78.  81.  82. 

87.  89.  91.  109.  111.  115 

computes  Mach  number  from  velocity 

entrop 

- 

3 , 24.  115 

computes  entropy  rise  across  gas  shoc- 

W.1VI' 

2  1 

ERRORS 

7,  33.  34.41.  52.  55.  70. 

72.  81. 82.  89.  90.  91.  92. 
100,  106.  109.  1  10 

routine  prints  various  error  messages  as 
for  the  appropriate  flag  from  the  calling 
rout  ine 

24 

ESI  JOCK 

98.  21.  75.  83.  22,  14. 
115 

61, 63,  90,  91.  92.  109 

computes  properties  downstream  of  shock 
wave 

2  6 

EX  PC  OR 

55.  41.  93.  77.  61 

70 

computes  the  flowfield  points  near  an 
expansion  corner 

,»f 

FABLE 

%.  1  18,  106,  75.  21 

98 

routine  used  in  determination  of  local 
dependent  stale  proper* ics 

2  7 

FCAI.C 

1. 9,  68 

4^ 

* 

2  8 

KINDI  1 

- 

60.  65.  107 

* 

*"* 

FNtWTN 

- 

34.  65.  95 

determines  the  Newtonian  impact  pressure 
on  plume  free  boundary 

*0 

F  RE EMC 

6,  43.  4  1.  1  1  7.  35, 

69.  61. 62 

70 

computes  flowfield  properties  in  the  free 
molecular  flow  regime 

M 

G  APPBI 

2,  69.  98.  1 11.  106. 
21.  75.  97.  18.  17 

10.  13.  71.  95 

interpolates  for  flow  properties  between 
two  data  point  a 

'2 

GASRD 

33.  37.  38.  36.  96. 

118 

74 

subroutine  which  reads  gas  properties 
from  cards 
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Table  3-3  (Continue:!) 


Subroutine* 

No.  Name 

Call*  Following 
Routine(a) 

Called  by  Following 
Routine(a) 

Deecription 

33 

34 

GASTAP 

HYPER 

36.  23.  39 

98.  75.  21.  29.63.44. 
100,  105. 23 

32 

70 

subroutine  which  reads  gas  properties  from 
tape  and  outputs  on  tape 

determines  hypersonic  back  pressure  at 
corner 

35 

1DMPFP 

85 

10.  13,  30,  55.  66.  70.  78. 

79.  95 

function  to  compute  the  particle  storage 
location  within  the  PFPARY  array 

36 

IDMTAB 

— 

32.  33.  73 

function  to  compute  gas  property  storage 
locations  within  the  TABB  array 

3? 

1DMXS1 

32 

function  to  compute  gas  interpolation  param¬ 
eter  storage  locations  within  XSIDIM  array 

38 

IDTAPE 

96 

32 

writes  ideal  gas  properties  on  data  tape 

39 

1MPUT 

93 

33 

reads  chemistry  input  data  for  finite  rate 

case 

40 

INITP 

40 

initialises  data  arrays  and  control  variables, 
sets  convergent  criterion 

41 

INRSCT 

23 

7.  13.  25.  30.  55.  70,  71.  72, 
79.  89.  91,  92.  95 

solves  for  the  intersection  of  two  straight 
lines 

42 

INTEGR 

69.  112 

53 

integrates  conservation  equations  along 
normal 

43 

ITERM 

30.  70 

decides  whether  line  should  be  terminated 
due  to  problem  limits  being  exceeded 

44 

ITSUB 

3,  34.  52,  58.63.  71.  76, 

81. 82,  87.  89.  90,  91.  92, 
100.  104.  105.  109 

general  purpose  iteration  control  routine 
solves  function  of  one  variable 

45 

JAMES 

27.  57 

65 

* 

46 

KIKOFF 

7,  106,  110 

provides  proper  termination  —  card  reads 
tape  writes  for  internally  detected  errors 

47 

LAG  RNG 

6 

interpolates  for  r.  9  as  a  function  of  x 
when  wall  points  are  input 

48 

LEGS 

- 

57 

* 

49 

LIMITS 

6 

70 

determines  whether  current  boundary  equa¬ 
tion  still  applicable 

50 

LIPIN 

82.  Ill,  98 

74 

prepares  initial  data  surface  for  simple 
options 

51 

MAIN 

19 

- 

driver  program 

52 

MASCON 

82.  21,  83,  44.  23 

74 

determines  startline  data  from  mass 
conservation,  linear  Mach  number 
variation 

53 

MASSCK 

42.69 

70 

integrates  mass  flow,  determines  cumu¬ 
lative  error  in  mass  flow 

54 

MAXTIM 

62.  70 

Univac  1108  system  routine  for  checking  run 
time  against  input  variable  for  cutting  off 
run  before  maxtime  is  reached 

55 

MOCSOL 

77.  69.  35.  105.  75, 
41.6.  84.  13.  56.  29. 
81.  113.  12.  HI.  23. 
93 

25 

solves  the  characteristic  equations  in  con¬ 
tinuous  regions,  calling  arguments  control 
type  of  solution  i.e.,  upp'-r  boundary,  lower 
boundary,  interior,  single  phase  only 

56 

newent 

11 

55,  95 

computes  entropy  and  enthalpy/OF  change 
along  a  streamline 

57 

NEWT 

48 

45 

* 

58 

NORSCK 

104.44 

61 

calculates  pitot  total  pressure  for  finite  rate 

case 

59 

NUSNUP 

“ 

- 

dummy  routine  presently  not  used 

60 

ON  ED 

28.  18 

65 

e 

61 

OUT 

64.  58.  24.  98,  75.  77. 
112.69,  93 

25,  30.  70.  91 

performs  bulk  of  printed  output  function; 
outputs  are  flowfield  data  points 

62 

OUTBIN 

54.69.  97 

30,  70 

performs  unformatted  binary  output  of  flow- 

field  data  on  a  magnetic  tape 
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Table  3-3  (Continued) 


Subroutines 

Calls  Following 

Called  by  Following 

Description 

No. 

Name 

Houtine(a) 

R  outin  e(8) 

63 

OVER EX 

98.  21.  24.  75.  44. 

111.  69.  35 

34 

computes  corner  condition  for  over-expanded 
flow  situation 

64 

PAC,  E 

- 

61.65.  67.  73 

writes  page  headings 

65 

PAR  TIL 

60,45.  80.  28.  18. 

114,  107.  64.  93.  98. 
21.  106 

108 

* 

66 

PARTIN 

82.  1 10.  103.  75.  93, 
98.  35.69 

74 

reads  gas  and  particle  flow  properties  from 
tape  or  cards 

67 

PARTPH 

64 

74 

reads  input  a  id  sets  up  data  table  of  particle 

T  versus  !: 

68 

PC  A IX 

- 

27 

* 

69 

PFP 

85 

10.  I  3.  30.  31. 42.  53.  55. 
61. 62.  63.  66.  70.  71,  73. 
77,  78.  79.  95.  10  1 

computes  the  particle  property  data  storage 
location  and  retrieves  data  from  the  PFPARY 
array 

70 

PHASE I 

93.  77.  61.  63.  101. 

62.  6.  109.  21.  103. 

76.  92.  96.  64,  49.  7# 
69.  36.  4  1. 91.  10.  30. 
98.  111,41,  79,  78.  26 
34.  81.  113.  100.  23 

!  9 

this  subroutine  perlorms  the  overall  control 
for  the  entire  ll'w  field  solution,  selectively 
calling  those  c  alculat  ion  s  which  are  peril- 
unit  to  the  particular  tnesh  construction  as 
well  as  the  highest  level  logic  routine  com¬ 
bining  point  or  limited  region  solutions  into 
an  ent  ire  field  solut  mn 

71 

PIIYSOI. 

69.  46.  98.  44.  31.  77. 
6.  11  l 

89.  91 .  92.  95 

computes  intersection  of  physical  character¬ 
istics  with  a  "normal”  data  line 

PHY/.OL 

7.  4  1.  2  3.  98.  111.8 

92 

computes  intersection  of  characteristics 
with  "normal"  at  a  downstream  shock  point 

7  t 

PLMOUT 

64.  96.  36  98.  21. 69 

74 

this  routine  outputs  the  input  data 

74 

PLUMIN 

7  i,  32.  86.  6.  3,  62. 

50,  66.  67 

19 

this  routine  provides  the  control  for  alt  input 
functions  by  selectively  calling  pertinent  in¬ 
put  routines  and/or  calls  transonic  solution 

?s 

POE  EM 

24.  26,  31,  34.  56.  61. 63. 
66.  70.  77,  78.  81.  83.  87. 
89.  91.  115 

computes  pressure  as  a  function  of  Mach 
n umi>er  and  entropy 

76 

POEM 

44 

105 

computes  pressure  as  a  function  of  velocity 
and  enthalpy 

77 

p  pat  m 

98.  106.  21.  75.  69, 

97.  17.  18 

8.  13.  25.  55.  61.  70.  71. 

79.  92.  95 

calculates  and  stores  gas  and  particle  de¬ 
pendent  variables  as  a  function  of  the  inde¬ 
pendent  flow  variables 

78 

(’RAN  DT 

98.  100,  1  1  1.21,  106. 
76.  106.  93.  69.  35 

70 

provides  overall  control  of  Prandtl -Meyer 
corner  calculation 

7') 

i’RFRUl) 

69.  4  l,  35.  77 

70 

computes  flow  properties  at  a  particle  limit¬ 
ing  intersection  with  a  plume  boundary 

HO 

PROP 

- 

65.  107.  1  14 

* 

H  1 

RGMOKP 

98.  96.  1  1 3.  20.  75. 

21. 44.  23 

55.  70.  95 

itera'ive  solution  for  Mach  number  as  a 
lunc'i  on  of  pres  sure 

8  2 

Ri"J  VOKM 

98,  96,  1  1  3.  21. 44. 

2  1 

3,  60.52.  66 

iterative  solution  velocity  as  a  function  of 
Mach  number 

8  3 

RHOl KM 

75 

4. 24.  52.  1  15 

density  as  a  function  of  Mach  number 

H4 

ROT  f:rm 

“ 

8.  55.  96 

rotational  term  in  method  id  characteristics 
equal  ion 

H 6 

R  WU 

~ 

l  1.  35.  69.  93 

Univac  1108  machine  language  routine  to 
access  temporary  storage 

86 

se  nnc; 

102. 98 

74 

computes  1  -dimenai onal  startiine  properties 
for  a  constant  startline  property  finite  rate 
case 

87 

si  I  LR 

98.  21.  76.  44 

65 

computes  entropy  as  a  function  of  pressure, 
total  enthalpy  and  velocity 

H8 

SLD  P 

t  I 

solves  a  set  of  N  simultaneous  linear  equa¬ 
tions  using  the  Gauss  -Gordan  reduction  algo¬ 
rithm  with  the  diagonal  pivot  strategy 

89 

SLPLIN 

41.  71.  8.  76.  21. 44. 

91.  95 

performs  the  slip  line  calculations 
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Table  3-3  (t-nntinuod) 


Sulir 

1  Hit  inec 

Call*  Following 

Called  by  Following 

No. 

Name 

Routine(a) 

Routine(s) 

Description 

90 

SOKFLX 

24.44. 23. 98. Ill 

- 

computes  the  flow  properties  downstream  of 
a  reflected  shock 

91 

SOKINT 

21.41. 95.  23.  61. 24. 
111.  109.  75.44,  71. 

8.  89.  98 

70 

computes  the  flow  properties  at  the  inter¬ 
section  of  shock  waves  of  the  opposite  family 

92 

SOKSOL 

41.  95,  111,  24.  98, 
72.  71.  8.44.  7.  23. 

77 

70 

provides  control  for  a  shock  point  solution 

93 

SPCTX 

85 

10,  25,  39.  55,  61. 65,  66, 
70,  78,  95 

reads  from  or  writes  on  data  files  the 
species  mole  fraction  for  each  point  (finite 
rate  version  only) 

94 

STGMOD 

~ 

4 

computes  gas  thermodynamic  properties  in 
the  transition  flow  regime 

95 

STKNOR 

93,  69,  35.  77.  1 11. 
41.  89.  71.  31,  13. 

84.  56.  12.  29.  4.  81. 
113,  10.  6 

70.  91,  92 

this  subroutine  provides  the  regional  control 
for  the  streamline/normal  solution.  It  has 
a  lower  level  of  logical  control  than  PHASE  1 
(70)  being  interested  only  in  determining  the 
location  and  flow  properties  of  a  single  new 
mesh  point 

96 

TAB 

26,  32,  38,  73,  81.  82,  98, 
108 

computes  the  thermodynamic  data  storage 
location  and  retrieves  data  from  the  TABB 
array 

97 

TEMTAB 

— 

31, 62.  77 

performs  table  lookup  for  particle  T  =  f(h) 
or  h  =  f(T) 

98 

THERMO 

96.  26.  99 

3,4,  8,  24,  31,  34.  50,61. 
63.65,66,  70.  71, 72,  73, 
77,  78,  81,  82,  86,  87.  90. 
91, 92,  100,  109,  115 

provides  control  of  interpolation  of  gas 
thermodynamic  and  transport  properties 

99 

THERM  1 

102.  105 

98 

computes  gas  properties  as  a  function  of 
total  enthalpy,  velocity,  temperature  and 
species  mole  fractions 

100 

THETPM 

98.  106.  105.44.  23 

34,70,  78 

this  subroutine  evaluates  Prandtl-Meyer 
equation 

101 

THRUST 

69.  112 

70 

starting  line  integration  and  wall  pressure 
integration  are  performed  here 

102 

THEY 

11.  86,  99,  104,  105 

computes  and  interpolates  thermodynamic 
properties  from  thermodynamic  tables  which 
are  input 

103 

TOFEM 

— 

66,  70, 113 

computes  temperature  as  a  function  of 

Mach  number 

104 

TOFENH 

102, 44 

58 

computes  temperature  as  a  function  of  total 
enthalpy  and  velocity 

105 

TOFH 

102.  44.  76 

35,  55.  78  99,  100 

computes  temperature  as  a  function  of  total 
enthalpy,  velocity  and  species  mole  fractions 

106 

TOFV 

23.46 

4,  21,  26,  31, 65.  77.  78, 

100 

computes  temperature  as  a  function  of  velocity 

107 

TRACE 

80,  28.  18 

65 

* 

108 

TRANS 

96.65 

19 

* 

109 

TURN 

98. 21,  110. 24.44. 
Ill, 23 

70,  91 

computes  shock  angle  and  downstream 
properties  for  known  turning  angle 

1 10 

UOFEM 

23.46 

66,  109,  111 

Mach  angle  as  a  function  of  Mach  number 

Ml 

UOF  V 

110.21 

8,  31,  50, 55,  63,  70.  71 

72,  78.  90,  91,  92.  95,  109 

Mach  angle  as  a  function  of  velocity 

112 

VEMAG 

16 

42.  61.  101 

computes  magnitude  of  a  vector 

113 

VOFEM 

103 

55.  70.  81,  82.  95 

computes  velocity  as  a  function  of  Mach  number 

114 

WDGI 

80 

65 

a 

1  1  5 

WEAK 

98.21,  75.  83.  22. 

14 

24 

computes  properties  downstream  of  an  ideal 
gas  shock  wave 
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Table  3-3  (Concluded) 


s:«» 

‘routines 

Calls  Following 

Called  by  Following 

No, 

Name 

Routine(s) 

Koutine(s) 

Description 

I  lb 

WOKA 

- 

3.  24 

one -dimensional  niass  flow  as  a  function 
area  relation 

1  17 

WTFI.OF 

~ 

30 

computes  area  bounded  by  two  data  point 

1  18 

XS1 

~ 

26,  32 

computes  storage  location  and  retrieves 
from  the  XSID1M  array 

‘  Hole  fence  7 
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Functional  Groupings 


3.1  CAPABILITIES  AND  LIMITATIONS 

The  UAMP  computer  program  described  in  this  document  can  be  used 
to  solve  a  wide  variety  of  problems  associated  with  real  gas,  supersonic, 
compressible  flow.  Some  of  the  more  important,  basic  capabilities  of  the 
existing  program  are  outlined  below: 


•  The  gas  may  be  ideal  or  real.  If  the  gas  is  real;  frozen, 
equilibrium,  or  non -equilibrium  chemistry  assumptions 
can  be  made.  The  effects  of  oxidizer/fuel  gradients  may 
be  considered. 

•  Two-dimensional  or  axisymmetric  flow  problem  geometries 
can  be  used. 

•  Both  upper  and  lower  boundaries  can  be  solid  or  free.  (A 
solid  boundary  can  be  approximated  by  either  a  conic  or 
polynomial  equation.)  (Two -phase  problems  require  the 
nozzle  centerline  as  a  lower  boundary). 

•  A  nozzle  wall  may  be  curve  fit  with  discrete  points. 

•  Compression  corners  on  the  upper  wall  can  be  calculated. 

•  Any  number  of  expansion  corners  can  be  considered  on 
either  the  upper  or  lower  wall. 

•  Various  methods  for  obtaining  an  initial  start  line  are 
utilized. 

1.  The  program  will  calculate  a  one-dimensional 
start  line  anywhere  in  the  nozzle. 

2.  The  program  will  calculate  a  start  line  at  points 
within  the  nozzle  necessary  to  conserve  mass. 

3.  Data  on  a  normal  surface  can  be  input  at  points 
across  the  flow  field  within  the  nozzle  or  in  the 
plume . 

4.  An  exit  plane  startline  can  be  punched. 

5.  The  program  can  be  restarted  from  the  startline 
punched  in  4  above. 

•  Hypersonic  or  quiescent  approach  flow  options  may  be 
used. 

•  Exit  to  ambient  pressure  ratios  from  over -expanded  to 
highly  under-expanded  are  possible. 

•  Displacement  of  the  axis  of  symmetry  from  the  center 
of  flow  (i.e.,  the  plug  nozzle  flow  field)  is  possible  (for 
gas  only  cases). 
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•  Due  to  computer  core  size  limitations  the  code  presently 
consists  of  two  versions:  (1)  an  equilibrium  chemistry 
version,  and  (2)  a  finite  rate  chemistry  version.  The 
finite  rate  version  has  all  the  capabilities  of  the  equi¬ 
librium  programs  with  the  following  exceptions: 

1.  Free  molecular  flow 

2.  Shock  Waves 

It  is  anticipated  that  one  version  will  be  released  at  a 
later  date. 

•  The  equilibrium  version  which  accompanies  this  docu¬ 
mentation  will  handle  only  attached  (over-expanded 
nozzles  or  compression  corners)  right-running  shocks 
(see  sketch  below).  The  logic  for  calculating  left- running 
shocks,  and  coalescing  shocks  is  in  the  code  but  has  not 
been  thoroughly  checked  out.  When  check  out  is  com¬ 
pleted,  the  program  modifications  will  be  forwarded  to 
users . 


X 


X  Shock 

X _ 


Over-Expanded  Nozzle  with  Right-  Attached  Right-Running  Shock 

Running  Shock 

•  There  is  presently  a  maximum  of  100  points  on  a  normal 
and  50  input  points. 

•  Reacting  gas  solutions  which  are  in  chemical  equilibrium 
have  been  facilitated  by  modifying  the  TRAN72  computer 
program  as  described  in  Section  2  to  provide  binary  tape 
and  punched  output  of  its  equilibrium  or  frozen  real  gas 
calculations  at  any  desired  O/F  ratio(s).  The  RAMP  pro¬ 
gram  has  the  ‘  inability  for  selecting  the  proper  case  from 
a  large  set  of  real  gas  properties  cases  stored  on  a  master 
tape.  The  method  of  generating  this  master  tape  is  outlined 
in  Table  3-5.  Cases  stored  are  uniquely  identified  by  some 
characteristic  of  the  particular  gas  under  consideration. 

For  example,  a  LOX/LH^  system  may  be  identified  by  the 
following: 


Gas  Type  Mixture  Ratio  Chamber  Pressure 
Q2/H2  O/F  =  1.5  -  8.0  PC  =  546.0 
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New  cases  of  general  interest  may  be  added  to  the  master 
tape;  however,  ad  hoc  cases  should  be  prepared  on  a  sepa¬ 
rate  tape.  Tape  preparation  sequence  and  communication 
with  the  RAMP  program  is  diagrammed  in  Table  3-5, 

Once  the  gas -particle  flowfield  solution  has  been  obtained, 
the  output  tape  may  be  used  by  the  RAMP  Radial  Lookup 
Program  (described  in  Appendix  A)  which  determines  the 
radial  variations  of  flowfield  properties  across  the  nozzle 
and  plume  flowfields  at  constant  axial  stations.  The  Plume 
Impingement  Program  (PUMP)  (Ref.  9)  may  also  be  run 
to  determine  the  effects  of  the  rocket  exhaust  plume  on 
objects  immersed  in  the  plume.  Sequencing  and  commun¬ 
ication  of  auxiliary  programs  with  the  RAMP  program  is 
shown  in  Table  3-5. 

Two-dimensional  or  axisymmetric  solutions  are  selected 
by  simply  loading  a  control  word  in  the  program  input 
data.  This  integer  (0  or  1)  is  then  multiplied  by  the  term 
containing  (l/r)  in  the  governing  differential  equation.  By 
appropriate  description  of  the  flow  boundaries,  it  is  possible 
to  change  from  a  solid  to  free  boundary  on  either  the  upper 
or  lower  walls.  Conversely,  it  is  not  possible  to  change 
from  a  free  to  a  solid  boundary  on  either  wall. 
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Table  3-5 

SEQUENCING  AND  COMMUNICATION  OF  AUXILIARY  PROGRAMS  WITH  THE  RAMP  PROGRAM 


'  Old  \ 
Master 
.  Tape 


Equilibrium  and/or  Frozen  Chemistry 

Modified  TRAN 7 2  —4 

Program 


Printed 

Output 


One  Dimensional  I 
Gas  -  Particle 
Startline 


j  New  \ 

V  Tape  i- 

] 

j  Finite  Rate  Chemistry 

Physical 

Const  raints 

Reactions 
Initial  Species 
Concentrations 
Rate  Constants 
cp>  h  =  f(T) 


Printed 

Output 


RAMP 

Nozzle  and/or  Plume  Solution 


RAMP 
C.ontou  r 
Plot  Program 


Output 

Tape 


RAMP 

Radial  Lookup 
Program 


SC.  4020 
Output 


Radiation  Program 
Applications 
(Solids  or  Gas) 


Plume 

Impingement 

Program 

(PUMP) 


SC  4020 
Output 


Printed 

Output 
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3.2  USER'S  INPUT  GUIDE  FOR  THE  RAMP  PROGRAM 


This  section  outlines  in  detail  the  procedures  for  using  the  Reacting 
and  Multi-Phase  (RAMP)  Computer  Program.  Each  card  and  its  use  is 
explained  in  Section  3.2.1.  The  program  magnetic  tape  assignments  are 
given  in  Table  3-6. 

3.2.1  RAMP  Program  Input  Information 

The  input  data  are  organized  into  sections  determined  by  their  use. 
The  description  of  these  cards  is  given  below. 


RAMP  Computer  Program  Input  Instructions 


Cards  1-3 


Column 


Problem  Description 
Required 

Parameter 


1-240  HEADER 


Card  4  Run  Control  Card 

R  equi red 

Column  Parameter  Value 

5  ICON  ( 1 )  1 

Gaseous  thermo¬ 
dynamic  data  con¬ 
trol  parameter 

2 


3 


Format  3(20A4) 

Description 

Problem  description  may  be 
put  on  three  cards;  however 
only  the  first  120  columns  will 
be  printed  while  all  240  char¬ 
acters  will  be  written  on  the 
data  tape.  All  three  cards 
must  be  present  even  if  biank. 

Format  1615  (Right  Adjusted' 

Description 

The  gas  composition  is  either 
chemically  frozen  and/or  in 
chemical  equilibrium.  The  gas 
properties  are  read  directly 
from  cards  8,  9,  10  and  1 1 . 

Same  as  ICON(l)=l  except  gas 
properties  are  read  directly 
from  a  data  tape  mounted  on 
FORTRAN  unit  10. 

The  gas  composition  is  in  chem¬ 
ical  non-equilibrium.  The  gas 
properties  are  determined,  as 
a  function  of  temperature  in 
thermodynamic  data  tables  in¬ 
put  on  cards  13. 
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Card  4 


Column 

Parameter 

Value 

Descript  ion 

3 

ICON  (1) 

4 

Same  as  ICON(l)-)  except  gas 
composition  is  chemically  frozen. 

8-9 

NTAPE 

N 

If  ICON (2)  =2,  tape  unit  number 
for  startline  if  not  input  from 
cards.  The  program  defaults  to 
unit  5  (read  cards)  for  ICON(2)=2. 
If  lCON(2)^2  and  a  two-phase 
transonic  solution  is  being  per¬ 
formed  NTAPE  is  the  unit  on 
which  the  transonic  startline 
will  be  written.  In  this  case 
the  program  defaults  to  unit  8. 

10 

ICON  (2) 

Start  line  control 

0 

Generate  straight  startline  with 
Mach  number  given. 

parameter  for  gas 
only  solution 

1 

2 

Generate  source  startline  with 

A/ A*  given 

Startline  input  from  cards  or 
tape. 

or 

3 

Generate  startline  by  conserva¬ 
tion  of  mass  using  a  linear  Mach 
number  distribution. 

Startline  control 
parameter  for  gas - 

0 

Generate  startline  using  transonic 
approximation . 

particle  solution 

2 

Startline  input  from  cards. 

13 

ICON  (3) 

Control  manner  in 

0 

Points  are  spaced  according  to 
a  sine  distribution. 

which  points  along 
the  startline  are 
spac  ed 

1 

2 

Points  are  evenly  spaced  (recom¬ 
mended) 

Points  are  evenly  spaced  on  a 
circular  arc  based  on  the  input 
value  of  the  upper  limit  of  the 
startline  (card  18  .COR  LIP(2)) 

NOTE:  This  option  is  necessary 
only  if  program  is  to  set  up  its 
own  gaseous  startline. 

14,  15 

ICON  (3) 

Number  of  startline  points.  ^ 
Maximum  of  50  (right  adjust) 

NOTE:  If  particles  are  present  and  supersonic  startline  is  generated  by 
transonic  approximation  then  total  number  of  points  on  startline  may  be 
adjusted  by  transonic  program  depending  on  particle  distributions. 
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Card  4  (Continued) 

Column  Parameter  Value  Description 


16-20  ICON  (4) 

Number  of  upper 
boundary  equations 

Option  for  ICON (4)  when  upper  boundary 
slopes 


Upper  boundary  specification 
indicator.  If  specifying  upper 
boundary  by  equations,  set  equal 
to  number  of  equations  to  be  used. 
Maximum  of  100.  Right  adjust. 

is  described  by  individual  points  and 


ICON  (4) 


1N000  +  Number  of  discrete  points  (no  boundary  equation 

following  last  point)  (slope  at  each  point  in  radians) 

2N000  +  Number  of  discrete  points  +  1  (an  upper  boundary 
equation  follows  last  point)  (slope  at  each  point  in 
radians) 

3N000  +  Number  of  discrete  points  (no  boundary  equation 

following  last  point)  (slope  at  each  point  in  degrees) 

4N000  +  Number  of  discrete  points  +  1  (an  upper  boundary 
equation  follows  last  point)  (slope  at  each  point  in 
degrees) 


N  ~~  number  of  points  to  use  for  Lagrangian  Integration  (5  max). 
If  N  is  set  to  zero,  a  linear  assumption  will  be  made. 


NOTE:  If  a  nozzle  is  being  run  the  throat  must  also  be  specified  by  discrete 
points. 


Column 

Parameter 

Value 

Description 

21-25 

ICON(5) 

Number  of  lower 
boundary  equations 

Lower  boundary  specification 
indicator.  Same  description 
and  option  as  ICON (4). 

30 

ICON  (6) 

0 

Not  presently  used 

35 

ICON  (7) 

Flow  type  option 

0 

Two-dimensional  flow  problem 
geometry. 

1 

Axisymmetric  flow  problem 
geometry. 

38 

INOZ 

2 

Calculations  terminated  at 
nozzle  exit. 

39 

ICON  (8) 

Data  output  con¬ 
trol,  used  in  con¬ 
junction  with  ICON  (16) 

0 

1 

Full  printout 

Print  only  boundary,  shock,  input, 
Prandtl -Meyer,  and  particle  limit¬ 
ing  streamline  points. 
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Ca  rd 


4  (C'ont  imied) 


(.iilumn  Parameter  Value 

40  ICON  (8)  1 


42  MORFT 

Compliments  ICON(9) 


44  ICON  (9) 

Units  indicator 


44-45 

ISPECS 

48-50 

ICON  ( 10) 

51-55 

ICON  ( 1 1) 

60 

ICON  ( 1 2) 

0 

1 

61 

ICON  (13) 

0 

1 


Description 

Print  I  line  (R,  X,  M,  S,  S  and 
shock  angle) 

Print  above  plus  Mach  angle, 

P,  P,  T,  V. 

Print  all  of  above  plus  MWT, 
y,  TO*,  PO*, 

For  English  system  of  units. 
Dimensions  are  in  feet. 

1  Dimensions  are  in  inches. 

For  metric  system  of  units. 

2  Dimensions  are  in  centimeters. 

3  Dimensions  are  in  meters 

4  System  of  units  specified  by  user. 

0  Use  English  system  of  units. 

1  Use  metric  system  of  units. 

This  option  controls  the  units  in 

which  the  flow  field  is  calculated. 
The  program  assumes  that  the 
boundary  equations  are  input  in  the 
same  units  as  the  units  indicator 
(ICON  (9)).  This  option  will  not 
override  the  units  specification  on 
cards  8  and  30  but  will  convert  the 
units  of  the  gas  and  particle  thermo 
dynamics  to  correspond  to  the  units 
of  this  indicator. 

Number  of  discrete  particle  sizes 
used  to  represent  particle  distri¬ 
bution  (10  max).  If  gaseous  only 
flow  set  equal  to  0  (right  adjust). 

Maximum  iterations  allowable 
for  each  point  in  flow  field.  If 
set  to  0  program  assumes  value 
of  100.  Right  adjust. 

Case  number  printed  at  top  of 
each  page. 

Calculate  shock  wave. 

No  rotation  option. 

Flowfield  data  will  be  output  on 
FORTRAN  unit  3. 

Data  will  not  be  written  on  tape. 
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Column 

Paramet  er 

Value 

Desc  r  .  pi  i  on 

6  s 

ICON  ( 1  3) 

0 

Free  molecular  calculations  will 
not  be  considered. 

1 

Free  molecular  calculations 
will  be  considered. 

68-70 

ICON  (14) 

0 

No  intermediate  printout  in 
solution  iteration. 

N 

Print  intermediate  results  for 

N*h  line.  Right  adjust. 

71-75 

ICON  (15) 

0 

No  intermediate  printout. 

M 

Print  intermediate  results  from 
point  on  each  line  from  the 
Nth  (ICON (14))  line  on.  Right 
adjust . 

76 

ICON  ( 16) 

0 

No  punched  cards  output. 

1 

Punch  data  line  at  nozzle  exit 

77-78 

ICON(16) 

0 

Print  every  line. 

N 

Print  every  N**1  line  (use  with 
ICON(8)).  Put  0  in  column  77 
if  N  <  10. 

79-80 

ICON(16)* 

Time  (SEC)  before  end  of  allotted 
run  time  when  new  startline  is  to 
be  punched.  Put  0  in  column  79 
if  time  less  than  10  seconds. 

5 

Finite  Rate  Chemistry 
Run  Control  Card  (R< 
quired  if  ICON(l)>2) 

>  _ 

Format  815  (Right  Adjusted) 

Column 

Parameter 

Value 

Description 

1-5 

NT 

Number  of  temperature  points  in 
thermodynamic  data  tables. 

6-10 

NS 

Number  of  gaseous  species  (ex¬ 
cluding  3rd  bodies) 

11-15 

NM 

Number  of  3rd  bodies. 

16-20 

NR 

Number  of  reactions  specified. 

25 

N  PRINT 

0 

No  intermediate  printout  in 

chemistry  calculations. 

1  Echo  print  of  input  data. 

2  Print  intermediate  results  of 

_  chemistry  calculations. 

NOTE:  Applicable  for  Univac  1108  only. 
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Card 


5  (Continued) 


Column 

Parameter 

Value 

Description 

30 

ICTAPE 

0 

Species  concentrations  for  start¬ 
line  read  directly  from  cards. 

1 

Species  concentrations  read  di¬ 
rectly  from  a  data  tape  mounted 
on  FORTRAN  unit  10. 

35 

KC.UP 

>2 

Number  of  normals  calculated 
before  finite  rate  chemistry 
contributes  to  dS  and  dll. 

40 

IDIDO 

0 

Uniform  species  concentrations 
along  startline. 

1 

Non-uniform  species  concentra¬ 
tions  along  starlline. 

6 

Upper  Boundary  Description 
Required 

If  ICON (4) 

<  10000  use  following  format 

(11,  3X,  11,  5X,  6E10.6). 

Column 

Parameter 

Value 

Description 

1 

IWALL(K,  2) 

1 

Conic  equation 

r  2  l/Z  a 

R  =  A[(B  +CX  +DX  )  +E] 

Represents  throat  region.  (See 
page  3-27  for  an  example  and 
description .) 

2 

Polynomial  equation 

R  =  AX4+3X\CX2+DX+E 

3 

Free  boundary  equation 

P  =  P  ( 1+E  X)  ( 1+y  (M  sin(e„-e 

00  00  00  00  a  00 

(See  page  3-27  for  an  example  and 
description.) 

6 

Same  as  IWALL-3  except  oblique 

shock  solution  for  plume  boundary, 

Use  if  1.5  <  M  <  5.5. 

oo 

5 

ITRAN(K,  2) 

0 

No  di  scnntinuit  y  follows  this 
equation . 

I 

Expansion  corner  follows. 

2 

Compression  corner  follows. 
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'  Vi 


Column 

Parameter 

Value 

Description 

11-20 

WALLCOfK,  1.  2) 

Coefficient  A  or  P  (psfa  or 

2  00 

N/m  ).  (Units  must  be  con¬ 
sistent  with  R  in  ft  or  m.) 

21-30 

WALLCO(K,  2,  2) 

B  or  v 

00 

31-40 

WALLCO(K,  3,  2) 

C  or  M 

oo 

41-50 

WALLCOfK,  4,  2) 

D  or  0  (deg) 

51-60 

WALLCOfK,  5,  2) 

E  or  E 

oo 

61-70 

WALLCOfK,  6,  2) 

Maximum  value  of  X  applicable 
to  equation  (feet  if  ICON(9)=0 
meters  if  ICON(9)  =  l). 

71-80 

RSTAR 

Throat  radius  (ft  or  m)  required 
only  on  card  for  last  equation. 
This  is  required  for  two-phase 
transonic  solution  only. 

If  10000 
3E10.6). 

<  ICON  (4)  <  20000 

use  following  format  (15,  5X,  3E10.6, 15, 

Column 

Parameter 

Value 

Description 

5 

I TRANS (K,  2) 

Same  as  before. 

11-20 

WALLCOfK,  3,  2) 

Axial  displacement  (X)  of  point 

K  (ft  or  m). 

21-30 

WALLCOfK,  1,  2) 

Radial  displacement  (R)  of  point 
K  (ft  or  m). 

31-40 

WALLCOfK,  2,  2) 

Wall  angle  (8)  at  point  K  (rad). 

45 

ITRANS(K  +  1,  2) 

Same  as  before. 

51-60 

WALLCO(K  +  l ,  3, 

2) 

X  at  point  K  +  l  (ft  or  m) . 

61-70 

W A  L  LC  O  (K  + 1 ,  1,  2) 

R  at  point  K  +  l  (ft  or  m). 

71-80 

WALLCO(K  +  l,  2, 

2) 

8  at  point  K  +  l  (rad). 

NOTE:  Card  6,  in  the  above  format,  is  repeated  for  each  equation  until  all 
necessary  equations  have  been  input.  That  is,  repeat  Card  6,  in  succession 

in  order  of  increasing  XMAX,  for  K  =  l,  2 . ICON(4).  All  units  for  lengths 

for  two-phase  calculations  are  consistent  with  ICON(9),  otherwise  units  for 
lengths  are  input  at  user's  discretion. 
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Repeat  Card  6,  in  above  format,  in  succession,  and  in  order  of  increasing 
X,  until  all  required  points  have  been  input. 

If  20000  <  ICON (4)  <  30000  the  above  format  is  used  except  the  last 
segment  of  the  upper  boundary  is  input  via  an  equation.  The  equation  is  input 
with  the  format  for  ICON (4)  <  10000  except  the  throat  radius  RSTAR  is  not 
required. 

If  40000  <  ICON (4)  <  50000,  the  format  for  20000  <  ICON(4)  <  30000  is 
used  except  0  is  input  in  dimension  of  degrees. 

Card  6a  Format  E10.6 

Card  6a  is  used  only  when  running  a  two-phase  case  where  the  upper 
boundary  (nozzle  wall)  is  specified  by  discrete  points  (ICON(4)  >  10000).  Do 
not  input  this  card  for  any  other  cases. 

Column  Parameter  Value  Description 

1-10  RSTAR  Throat  radius  (ft  or  mi. 

Card  7  Lower  Boundary  Description 

Required 

The  formats  and  options  for  Card  7  are  controlled  by  ICON(5)  and  are 
the  same  as  for  Card  6  (Upper  Boundary)  with  the  following  exceptions:  (1) 
the  distance  from  the  nozzle  throat  to  the  center  (X=0)  of  the  coordinate  sys¬ 
tem  for  the  wall  equations  is  read  in  place  of  RSTAR.  This  is  only  necessary 
for  two-phase  cases  where  a  transonic  solution  is  desired  and  where  X/0  at 
the  nozzle  throat.  This  distance  is  positive  if  the  center  of  the  coordinate 
system  is  downstream  of  the  throat  and  negative  if  the  center  of  the  coordinate 
system  is  upstream  of  the  throat.  It  is  not  possible  to  run  a  two-phase  case 
with  the  lower  boundary  specified  by  points,  therefore  there  is  no  Card  7a; 

(2)  the  indices  of  the  parameters  are  ( — ,  — ,  1)  instead  of  (— ,  — ,  2),  e.g., 
WALLCO(K,  1,  1)  instead  of  WALLCO(K,  1,  2).  A  nozzle  throat  region  showing 
the  coefficients  of  a  circular  throat  and  free  boundary  are  shown  in  the  sketch 
on  the  following  page. 
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C  ~  radius  of  curvature  of  the 
circular  arc  of  the  throat 

T  -  throat  radius 

O  =  axial  distance  from  the  origin 
of  the  coordinate  system  to  the 
throat 

8  ~  throat  divergence  angle  corre¬ 
sponding  to  the  maximum  value 
for  which  the  throat  conic  equa¬ 
tion  applies 


The  conic  equation  for  this  case  would  have  the  following  form: 


A  =  -1  for  an  upper  equation,  +1  for  a  lower  equation  (-1  for  this  case) 
B  =  RC2  -  XO2 
C  =  2X0 

D  =  - 1 

E  =  -(RC  +  RT) 

Xmax  =  RC  sin9  +  XO 


An  example  of  a  free  boundary  is  shown  in  the  sketch  below. 


TUETAINF 


- -4^00  =  15 

=  GAMMAINF 

:.io  / 

=  o.i  / 


The  freestream  approach  flow  is 
inclined  at  15  deg  to  the  plume  with 
a  gamma  ( Y )  of  1.4,  a  Mach  number 
of  10,  and  a  static  pressure  of  0.1 
psfa. 


[  Nozzle 


Plume 

Boundary 


PINF  =  0.1  (psfa) 

E  =  0  (No  pressure  variation  with  axial  distance) 
GAMMAINF  =  1.4 
MINF  =  10 
THETAINF  =  -15° 
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Card  8 


Gas  Property  Control 


Format  6A4,  5X,  A3,  6X,  12,  3X,  12 


This  card  is  required  whether  gas  data  input  by  cards  or  tape. 


Column 

1-24 


30-32 


39-40 


44-45 


Card  9 

Column 

1-10 

Card  10 

Column 

1-10 

19-20 


Parameter 
ALPHA  {I) 

UNITS 
(Independent 
of  ICON (9)) 

I  OF 


IS 


Description 

Gas  name  for  real  gas  on  tape  (see 
Section  2,  page  3).  If  inputting  gas 
data  via  cards,  may  be  any  name. 

ENG  Input  gas  data  with  English 
units  (cards  only). 

MKS  Metric  units  (cards  or  tape). 

Number  of  O/F  tables  for  gaseous 
only  solution  or 

number  of  gas  total  enthalpy  tables 
for  two-phase  solution 

Number  of  entropy  tables  per  IOF 
entry,  1  for  gas,  2  maximum  for  gas 
chemical  equilibrium  solution. 


Mixture  Ratio  or  Total  Format  E10.6,  8X,I2 

Enthalpy  (This  card  is 
not  used  if  ICON(l)>2) 


Parameter 

OFRAT(M) 


Entropy 

(This  card  is  not 
used  if  ICON(l)>2) 

Parameter 
STAB  (M,  I) 

IVTAB(M.I) 


Description 

For  gaseous  only  flow  input  O/F  ratio, 
for  particle  flow  input  gas  total  enthalpy 
(cal/gm  for  metric,  Btu/lbm  for  English, 
units  specified  by  Card  8). 

Format  E10.6,8X,I2 


Description 

Entropy  of  gas  (cal/gm-°K  or  Btu/lbm- 
°R,  units  specified  by  Card  8). 

Number  of  Mach  numbers  for  this 
entropy  value  (13  max). 
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Format  8E10.6 


Description 

Mach  number  associated  with 
above  entropy. 

Molecular  weight  of  gas  (gm/g- 
mole  or  lbm/lb -mole). 

Gamma  (C  /C  ) 

Temperature  (°K  or  °R) 

Pressure  (atm) 

Prandtl  number  (dimensionless) 

Absolute  viscosity  (poise) 

Ideal  gas  (1  velocity  cut  per 
table)  —  viscosity  temperature 
exponent.  Real  gas  —  (cal/ 

gm-°K  or  Btu/lbm-°R). 


To  illustrate  the  arrangement  of  Cards  9,  10  and  11,  let  IOF=2  and  IS=2; 
then  the  proper  arrangement  is: 

Card  9 
10 

11  (1-13  such  cards) 

10 

11  (1-13  such  cards) 

9 

10 

11  (1-13  such  cards) 

10 

11  (1-13  such  cards) 


C  olumn 


11-20 


21-30 

31-40 

41-50 

51-60 

61-70 

71-80 


(las  Properties 
(This  card  is  not  used  if 
ICON(l)j>2;  units  specified 
by  Card  8) 

Parameter 

XSIDIM(l) 

XSIDIM(2) 

XSIDIM(3) 

X  SIDIM(4) 

XSIDIM(5) 

XSIDIM(6) 

XSIDIM(7) 

XSIDIM(8) 


Card  12 


Column 


11-20 


Gas  Properties 
(This  card  is  required 
if  ICON(l)>2) 

Parameter  I 


Default 

Value 


Format  3E10.6 


Description 


VISO 


0.7  Prandtl  number  (dimensionless), 

1.0E-04  Absolute  Viscosity  (poise). 
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Card  12  (Continued) 

Column  Parameter  Default  Description 

Value 

21-30  EX  0.6  Viscosity  temperature  exponent 

Cards  13  Gas  Thermodynamic  Data 

(The  following  cards  are 
required  if  ICON(l)>2) 

The  following  set  of  cards  contain  species  thermodynamic  data.  The 
first  card  contains  the  species  name,  molecular  weight  and  heat  of  formation. 
The  second  and  remaining  cards  contain  the  temperature  and  corresponding 
specific  heat,  entropy  and  enthalpy  for  that  species.  Two  temperatures  and 
corresponding  thermodynamic  data  are  placed  on  each  card.  The  input  table 
can  contain  up  to  a  maximum  of  30  temperature  points.  The  data  are  input 
exactly  as  presented  in  the  JANAF  tables  (Ref.  10)  with  the  temperature  points 
being  the  same  for  all  species.  Cards  13.1,  13.2,  13.3,  etc.,  are  repeated  for 
each  species. 


Card 

Column 

Description 

Format 

13.1 

1-6 

Name  of  first  species 

A6 

7-16 

Molecular  weight 

E10.3 

17-26 

Heat  of  formation,  h^g  (kcal/mole) 

E10.3 

13.2 

1-10 

First  temperature  point  (°K) 

F  10 .4 

11-20 

c  (cal/mole-°K) 
i 

F  10.4 

21-30 

(cal/mole -°K) 

F 10 .4 

31-40 

hi'h298  0<cal/mole) 

F10.4 

41-50 

Second  temperature  point  (°K) 

F10.4 

51-60 

c  (cal/mole -°K) 

F10.4 

61-70 

(cal/mole -°K) 

F  10.4 

71-80 

h.  -  h  D  (kcal/mole) 

1  670j 

F  10.4 

13.3 

1-10 

Third  temperature  point 

F  10.4 

etc. 
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Cards  14 


Catalytic  Species  Weighting  Factor  Data 
(The  following  cards  are  required  if 
ICON(l)>2  and  NM>0) 


The  following  set  of  cards  specify  the  catalytic  species  (Ml,  M2,  M3,  .  .  . ) 
and  their  respective  composition  in  terms  of  the  species  participating  in  the 
reactions.  Weighting  factors  must  be  read  in  the  same  order  in  which  the 
thermodynamic  data  sets  are  read. 


Card  Column 

14.1.1  1-6 

14.1.2  1-5 

6-10 


Description  F  ormat 

AID(NS+1)  —  Name  of  first  catalytic  species  A6 
(e.g..  Ml) 

WF(1,  1)  —  Weighting  factor  of  first  species  16F5.2 

(for  first  catalytic  species).  Set  weighting 

factor  to  zero  for  any  reactant  which  does 

not  contribute  to  the  respective  catalytic 

species. 

WF(1,  2)  —  Weighting  factor  of  second  species 
contributing  to  first  catalytic  species. 


75-80 

14.1.3 

1-5 

14.2.1 

1-6 

14.2.2 

1-5 

14.NM.1 

1-6 

WF(1,  16)  —  Weighting  factor  of  16th  species 
contributing  to  first  catalytic  species. 

WF(1,  17)  —  Weighting  factor  of  17th  species  16F5.2 
contributing  to  first  catalytic  species,  etc. 

AID(NS+2)  —  Name  of  second  catalytic  A6 

WF (2,  1)  —  Weighting  factor  of  first  species  16F5.2 
contributing  to  second  catalytic  species,  etc. 

AID(NS+NM)  —  Name  of  last  catalytic  A6 

species,  etc. 


Cards  15  Chemical  Reaction  Mechanisms 

(The  following  cards  are  required 
if  ICON(l)>2  and  NR>2) 


The  following  set  of  cards  specifies  the  chemical  reaction  mechanisms 
for  a  particular  problem,  one  card  for  each  reaction.  No  particular  order  is 
required. 


Card 

Column 

Description 

F  ormat 

15.1 

1-6 

Species  A 

A6 

7 

+  sign 

8-13 

Species  B  (or  M) 

A6 
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Cards  15  (Continued) 


Card 

Column 

Description 

F  ormat 

15.1 

14 

+  sign 

15-20 

Blank  (or  M) 

6x(A6) 

21 

=  sign 

22-27 

Species  C 

A6 

28 

+  sign  (if  needed) 

29-34 

Species  D  (or  M) 

A6 

35 

+  sign  (if  needed) 

36-41 

Species  E  (or  M) 

A6 

42-48 

Blank 

49-50 

Reaction  type,  1  to  12 

12 

51 

Rate  constant  type,  1  to  5 

11 

52-59 

A,  pre- exponential  factor  (cm- 
particle-sec  units) 

E8.2 

60-64 

N,  temperature  exponent 

F5.2 

65-74 

B,  activation  energy  (cal/mole) 

F10.1 

75-80 

M,  temperature  exponent 

F6.2 

15.2 

Next  reaction 

1  5. NR 

Last  reaction 

Cards 

16  Startline  Data  Format 

7E10.3 

(The  following  cards  are  required 
if  ICON ( 1)>2  and  ICTAPE=0) 


The  following  cards  contain  the  species  mole  fractions  on  the  startline. 
Mole  fractions  must  be  read  in  the  same  order  in  which  the  thermodynamic 
sets  are  read. 

Card  Column 
16.1  1-10 

61-70 
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Description 


Mole  fraction  of  first  species  at  the  first  point  on  the 
startline. 


Mole  fraction  of  seventh  species  at  the  first  point  on 
the  startline. 


I 


Cards  16  (Continued) 
Card  Column 


16.2 


1-10 


Description 

Mole  fraction  of  eighth  species  at  the  first  point  on  the 
start  line. 


61-70  Mole  fraction  of  the  fourteenth  species  at  the  first  point 
on  the  startline. 


etc. 


Cards  16.1  and  16.2,  etc.,  are  repeated  for  each  point  on  the  startline. 
For  a  uniform  startline  (IDIDO=0),  mole  fractions  are  read  for  1  point  only. 


Card  17  Chamber  Condition  Data  Format  2EI0..3 

(This  card  is  used  if  ICON(l)>2 
and  ICTAPE=0) 


Column 

Parameter 

Description 

1-10 

PC 

Chamber  pressure  (atm) 

11-20 

TC 

Chamber  temperature  (°K) 

Card  18 

Startline  Data  Format  8E10.6 

(This  card  is  not  used  if  ICON  (2)  =2 
or  for  gas  particle  flow). 

Use  Card 

18a  if  ICON  (1)<  2. 

Use  Card  18b  if  ICON(l)>2. 

Card 

Column  Parameter 

Description 

* 

18a 

1-10 

COR  LIP(2) 

Axial  coordinate  of  upper  limit  of  startline 
(ft  or  m,  see  Fig .  3  -  la) 

11-20 

COR  LIP(6) 

Axial  coordinate  of  lower  limit  of  startline 
(ft  or  m,  see  Fig.  3 -la).  (If  ICON (3)  point 
spacing  option  =  2  this  value  is  recalculated 
using  COR  LIP(2)) . 

21-30 

COR  LIP(4) 

Mach  number  (ICON(2)=0)  or  A/A*  (ICON(2)=l) 
for  startline 

31-40 

CORLIP(5) 

Entropy  of  startline  (cal/gm/°K  or  Btu/lbm/°R) 

41-50 

CORLIP(8) 

Mixture  ratio  (O/F)  of  startline 

Card  18a  is  used  to  input  the  gas  startline  information  when  the  gas  chemical 
equilibrium,  frozen  or  ideal  gas  option  is  utilized  in  the  solution. 
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Card  18  (Continued) 


Card 

Column 

Parameter 

Description 

* 

18b 

1-10 

CORLIP(2) 

Axial  coordinate  of  upper  limit  of  start  - 
line  (ft  or  m,  tee  Fig.  3 -la) 

11-20 

CORLIP(6) 

Axial  coordinate  of  lower  limit  of  start - 
line  (ft  or  m,  see  Fig.  3-la) 

21-30 

COR  LIP  (4) 

Mach  number  (ICON(2)=0)  or  A/A 
(ICON  (2)  =  1)  for  startline 

31-40 

P 

Pressure  for  startline  (atm) 

41-50 

T 

Temperature  for  startline  (°R  or  °K) 

Card 

19 

Startline  Data 

Format  6E13.7 

Do  not  use  this  card  if  ICON(2)/2  or  for  gas-particle  flow.  Use  feet 

if  ICON(9)=0,  meters 

if  ICON ( 1)>2. 

if  ICON  (9)  =  1 . 

Use  Card  19a  if  ICON(l)<2.  Use  Card  19b 

Repeat  this  card  in  succession 

and  in  order  of  increasing  R  for  1  =  1,  2,  .  .  . 

ICON  (3). 

Card 

Column 

Parameter 

Description 

** 

19a 

1-13 

R 

Radial  coordinate  (R)  of  point  I  on 
startline  (ft  or  m) 

14-26 

X 

Axial  coordinate  (X)  of  point  I  (ft  or  m) 

27-39 

EM 

Mach  number  at  point  I  (dimensionless) 

40-52 

THETA 

Flow  angle  at  point  I  (deg' 

53-65 

S 

Entropy  at  point  I  (cal/gm/°K  or  Btu/ 
lbm/°R) 

66-78 

OF 

Mixture  ratio  at  point  I  (O/F) 

* 

19b 

1-13 

R 

Radial  coordinate  (R)  of  point  I  on  start - 
line  (ft  or  m) 

14-26 

X 

Axial  coordinate  (X)  of  point  I  (ft  or  m) 

27-39 

EM 

Mach  number  at  point  I  (dimensionless) 

40-52 

THETA 

Flow  angle  at  point  I  (deg) 

53-65 

T 

Temperature  at  point  I  (°R  or  °K) 

66-78 

P 

Pressure  at  point  I  (atm) 

j|( 

This  card  is  used  to  input  the  gas  startline  information  when  the  gas  chemical 
non -equilibrium  option  is  utilized  in  the  solution. 

See  footnote  on  previous  page. 
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Card  20 


Cutoff  Limits  Data 


Format  8E10.6 


Required  (See  Fig.  3- lb) 


Column 

Parameter 

Description 

1-10 

CUTDAT(l) 

Radial  coordinate  defining  upper  limit  of 
calculation  regime  (ft  or  m) 

11-20 

CUTDAT(2) 

Axial  coordinate  defining  upstream  cutoff 
limit  (ft  or  m) 

21-30 

CUTDAT(3) 

Angle  upper  limit  of  calculation  regime 
makes  with  horizontal  (deg) 

31-40 

CUTDAT  (4) 

Radial  coordinate  defining  downstream 
cutoff  limit  (ft  or  m) 

41-50 

CUTDAT(5) 

Axial  coordinate  defining  downstream 
cutoff  limit  (ft  or  m) 

51-60 

CUTDAT  (6) 

Angle  downstream  cutoff  line  makes  with 
horizontal  (deg) 

Card  21 

Mesh  Control 

Fromat  8E10.6 

Required  (See 

Section  3.5.1) 

Column 

Parameter 

Description 

1-10 

STEP(3) 

Interior  point  insertion  criteria  (ft  or  m). 
See  Section  3.5.1. 

11-20 

STEP(6) 

Axis  point  insertion  criteria  (ft  or  m). 

See  Section  3.5.1. 

21-30 

STEP(9) 

Particle  limiting  streamline  insertion 
criteria. 

31-40 

STEP(7) 

Point  deletion  criteria. 

41-50 

STEP(l) 

Prandtl-Meyer  integration  step  size  (deg). 

51-60 

STEP(8) 

Interpolation  factor  for  calculating  lower 
wall. 

I 

1 
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COR  LIP(2 ) 


Fig.  3- la  -  Startline  Geometric  Set-Up 


R, 


R- 


0 


CUTDAT  ( 1 ) 
CUTDAT(2) 
CUTDAT(3) 
CUTDAT  (4) 
CUTDAT(5) 
CUTDAT  (6) 


Normal  terminated 
by  downstream 
cutoffs. 

Normal  terminated 
by  plume  boundary. 


NOTE:  The  normals  must  terminate  on  an  upper 

boundary.  Therefore,  R^X^,  0j  must  have 
values  such  that  the  cutoff  box  will  always 
be  above  the  plume  or  solid  boundary.  The 
code  will  attempt  to  fill  up  the  cutoff  box 
with  normals  until  fewer  than  six  points 
remain  on  the  normal. 


Fig.  3-lb  -  Cutoff  Limits 
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Card  22 


Kree-Molecular  Control  Variables 
(This  card  is  not  used  if  ICON(13)=0) 


Format  6E10.6 


Column 

Parameter 

Description 

1-10 

VIBNO 

Reciprocal  of  the  Knudsen  number  at  which 
the  vibrational  energy  mode  thermally  freezes. 

11-20 

ROTNO 

Reciprocal  of  the  Knudsen  number  at  which 
the  rotational  energy  mode  thermally  freezes. 

21-30 

TRANNO 

Reciprocal  of  the  Knudsen  number  at  which 
the  translational  energy  mode  thermally 
freezes . 

31-40 

CHARL 

Characteristic  length  used  in  the  Knudsen 
number  calculation  (nomally  the  nozzle 
exit  radius). 

41-50 

VISCC 

Reference  viscosity  (poise)  if  not  input  in 
thermo  tables. 

51-60 

CON  MM 

Viscosity  relation  temperature  exponent 
if  not  input  in  thermo  tables. 

Cards  23  through  35  are  input  only  for  two-phase  solution. 


Card  23  Particle  Solution  Control  Format  1615 

(Use  only  if  ISPECS  >0) 


Column 

Parameter  Value 

Description 

4 

IZO 

0 

Nozzle  wall  equations  are  referenced  to  the 
nozzle  throat. 

1 

Nozzle  wall  equations  are  referenced  to  the 
nozzle  exit  plane. 

5 

IWRITE 

0 

1  line  of  print  for  each  particle  (V,9,  AM, 

(particle  print 

h.  P,  T) 

flag) 

1 

Above  plus  Re,  AV,  AT,  viscosity,  C  ,  Pr 

2 

All  of  above  plus  T  ,  P  ,  Cn/Cn~,  Nu/Nus, 

A,  B  °  ° 

6-10 

IDRAG 

0 

Use  drag  table  coded  in  Kliegel  program 
(Ref.  7). 

1 

Use  C.  J.  Crowe  drag  table  coded  internal 
to  program  (Ref.  11). 
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Card  23  (Continued) 


Column 

Parameter 

Value 

Description 

14-15 

NSETS 

0 

Startline  calculated  by  program 
(ICON  (2)^2) 

N 

Number  of  startline  points  at  which 
particles  are  present  for  given  startline. 
ICON (2)  =2,  N  <  ICON (3) .  Right  adjust. 

18 

IPCHS 

0 

No  punch. 

1 

Punch  startline  from  transonic  program. 

24 

JTEM(l) 

The  elements  of  the  JTEM(M)  arrary  ind 
cate  which  temperature/enthalpy  table  is 
to  be  used  for  particle  species  M.  The 
value  of  JTEM(l)  is  always  set  equal  to 

1  for  particle  species  1. 

25,  30 

JTEM(M) 

M  =  2,  ISPECS 

0 

Indicates  that  the  particle  species  M 
temperature/enthalpy  table  will  be  the 
same  as  that  for  particle  species  1. 
Cards  30,  31  and  32  are  not  required 
for  particle  species  M. 

65 

M 

Indicates  that  the  particle  species  M 
temper  at  ure/enthalpy  table  will  be  input 
on  Cards  30,  31  and  32  as  Table  M. 

N 

Indicates  that  the  particle  species  N 
temperature/enthalpy  table  will  be  the 
same  as  that  for  particle  species  M. 

(N  <  M).  Cards  30,  31  and  32  are  not 
required  for  particle  species  N. 

Card  24 

Particle 

F ormat  8E 10 .6 

Column 

Paramet  er 

Description 

1-10 

XMASSP 

Ratio  of  particle  total  mass  flow  rate 
to  gas  mass  flow  rate. 

Card  25 

Particle  Mass  Flow  Format  8E10.6 

Rate  Fractions  (Use  only  if 

ISPECS  >  0) 

Column 

Parameter 

Description 

1-10 

PERTG(l) 

Ratio  of  particle  No.  1  mass  flow  rate 
to  total  particle  mass  flow  rate. 
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Column 

Parameter 

Description 

11-20 

PERTG  (2) 

Ratio  of  particle  No.  2  mass  flow  rate 
to  total  particle  mass  flow  rate. 

• 

PERTG  (ISPECS) 

Ratio  of  particle  No.ISPECS  mass  flow 
rate  to  total  particle  mass  flow  rate. 

Card  26 

Particle  Size  Data 
(Use  only  if  ISPECS>0) 

Format  8E10.6 

Column 

Parameter 

Description 

1-10 

PSP(2,  1) 

Radius  of  particle  No.  1  (microns). 

• 

PSP(2,  ISPECS) 

Radius  of  particle  No.ISPECS  (microns 

Card  27 

Particle  Mass  Density 
(Use  only  if  ISPECS>0) 

F ormat  8E10.6 

Column 

Parameter 

Description 

1-10 

PSP(1,  1) 

Mass  density  of  particle  No.  1  (lbm/ft^, 

or  kg/m^) 


PSP(l,  ISPECS) 

Mass  density  of  particle  No.ISPECS 
(lbm/ft^,  or  kg/m^). 

Card  28 

* 

Emissivity  Data 

F ormat  8E  10  .6 

(Use  only  if  ISPECS>0) 
(c  in  Eq.  (3.6)) 

Column 

Paramet  er 

Description 

1  - 10 

EMISS(l) 

Emissivity  of  particle  No.  1. 

EMISS(ISPECS) 


Emissivity  of  particle  No.ISPECS 


The  emissivity  and  accommodation  coefficients  are  used  to  determine  the  local 
energy  exchange  between  the  gas  and  particles  via  radiation.  They  normally 
produce  negligible  affects  on  solution  and  usually  are  set  to  0  (zero). 
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Card  29  Accommodation  Coefficient? 

(Use  only  if  ISPECS>0) 

(a  in  Eq.  (3.6) 


Column 


Parameter 

ACC(l) 


Format  8E10.6 


Description 


Accommodation  coefficient  of  particle 
No.  1. 


ACC  (ISPECS) 


Accommodation  coefficient  of  particle 
No.  1  ISPECS. 


Card  30 


C  o  i  um  n 


Particle  Equation  of  State 
(Use  only  if  ISPECS>0) 


Parameter 

ALPHA 


Format  4A6,I3,A6 


Description 


Particle  name  (any  name). 


28-33 


Card  31 


Column 


Card  32 


Column 


UNIT 

(Independent  of 

ICON  (9)) 

Particle  Data 

(Use  only  if  ISPECS>0) 

Paramet  er 

NPTM(I) 


Particle  Enthalpy  Data 
(Use  only  if  ISPECS>0; 
units  specified  by  Card 


Parameter 
TM  (I) 


ENG  Data  input  in  English  units 
MKS  Use  metric  units 


Format  13.  12A6 


Description 

Number  of  temperature-enthalpy  data 
points  for  this  particle.  If  equal  to  I, 
input  liquid  and  solid  heat  capacities 
(see  Card  32).  Right  adjust. 

Format  7E10.6 


D  e  s  c  r  i  pt  i  on 

Melting  point  temperature  of  particle 
No.  I  (°R  in  English  units,  °K  in  MKS 
unit  s) . 


The  emissivity  and  accommodation  coefficients  are  used  to  determine  the  local 
energy  exchange  between  the  gas  and  particles  via  radiation.  They  normally 
produce  negligible  affects  on  solution  and  usually  are  set  to  0  (zero). 
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Card  32  (Continued) 


Column 

11-20 

21-30 


3  1  -40 


41-50 


31-40 
4  1-51 


51-60 


61-70 


Parameter 

HS(I> 

HM  (I) 


Description 

Enthalpy  of  solid  phase  of  particle  No.  I 
at  melting  point  temperature  (Btu/lbm 
or  cal/gm). 

Enthalpy  of  liquid  phase  of  particle  No.  I 
at  melting  point  temperature  (Btu/lb- 
or  cal/gm) 


If  NPTM(I)  =  1,  use  following  format. 


APHO(l,  1,1)  Heat  capacity  of  liquid  phase  of  particle 

No. I  (Btu/lbm-°R  or  cal/gm-°K). 

APHO(l,  2.  I)  Heat  capacity  of  solid  phase  of  particle 

No. I  (Btu/lbm-°R  or  cal/gm-°K). 

If  NPTM(I)  >  1  use  following  format. 


APHO(l,  1,1) 
APHO(l ,  2,1) 
A  PI  10(2,  1,  I) 
APHO(2,  2,  I) 


Temperature  for  T-H  table  for  particle 
No.  I  (°R  or  °K) . 

Enthalpy  for  T-H  table  for  particle  No. I 
(Btu/lbm  or  cal/gm). 

Second  temperature  in  T-H  table  for 
particle  No.  I  (°R  or  °K). 

Second  enthalpy  in  T-H  table  for  particle 
No.  1 . 


The  above  format  (APHO(J,  1,1),  APHO(J,  2,1))  is  continued  on  successive 
cards  of  format  7E10.6  for  J=l,  2 . NPTM(I). 

There  are  as  many  sets  of  cards  30,  31.  32  as  there  are  different 
chemical  species. 


Card  33  Input  Startline  Format  6E13.7 

(The  following  carus  are  required 
if  ICON  (2)  =2  and  iSPECS>0). 

I  Jse  Card  33a  if  ICON  (1)  <  2.  Use  Card  33b  if  I  CON  ( 1 )  >  2. 

Repeat  this  card  for  1  =  1,  2 . ICON(3)  starting  at  point  on  nozzle  axis. 

* 

Card  33a 

Col  nmn  Paramet  er  Description 

1-13  R  Radial  coordinate  of  slartline  point  I 

(ft  or  m) . 

14-26  X  Axial  coordinate  of  startline  point  I 

(ft  or  m) . 


This  card  is  used  when  gas  chemical  equilibrium,  frozen  or  ideal  gas  option 
is  selected. 
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Card  3  3a  (Continued) 


Column 

Parameter 

Description 

27-39 

EM 

Mach  number  at  point  I. 

40-52 

THETA 

Flow  angle  at  point  I  (deg). 

53-65 

S 

Entropy  at  point  I  (Btu/lbm-°R  or 
cal/gm-°K) . 

66-78 

OF 

Gas  total  enthalpy  (Btu/lbm  or  cal/gm). 

7 

Card  33b 

Column 

Parameter 

Description 

1-13 

R 

Radial  coordinate  of  startline  point  I 
(ft  or  m) . 

14-26 

X 

Axial  coordinate  of  startline  point  I 
(ft  or  m) . 

27-39 

EM 

Mach  number  at  point  J. 

40-52 

THETA 

Flow  angle  at  point  I  (deg). 

53-65 

T 

Temperature  at  point  I  (°R  or  °K) 

66-78 

P 

Pressure  at  point  I  (atm). 

Card  34 

Startline  Particulate  Data  Format  I5.5X.4E13.7 

(The  following  cards  are  required 
if  ICON (2)  =2  and  ISPECS>0). 

Use  Card  34a  if  ICON(I)  <  2. 

Use  Card  34b  if  ICON(l)  >  2. 

Card  34a 

Column 

Parameter 

Description 

5 

J1 

Particle  number 

11-23 

HI 

Particle  enthalpy  at  point  I  (Btu/lbm 
or  cal/gm). 

14-36 

RHO 1 

Particle  density  at  point  I  (slug/ft  ^  or 
kg/m3) . 

37-49 

U1 

Particle  axial  velocity  at  point  I  (ft/sec 
or  m/ sec) . 

50-62 

VI 

Particle  radial  velocity  at  point  I  (ft/sec 
or  m/ sec) . 

* 

This  card 

is  used  when  the  gas  chemical  non -equilibrium  option  is  selected. 
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Card  Ub 

Column 

Parameter 

Description 

3 

J1 

Particle  number. 

11-23 

HI 

Particle  enthalpy  at  point  I  (Btu/lbm  or 
cal/gm. 

14-36 

RHO 1 

Particle  density  at  point  I  (slug/ft  or 
kg/m3). 

37-49 

V 

P 

Particle  velocity  at  point  (I)  (ft/sec  or 
m/ s  ec) . 

50  -62 

0 

P 

Particle  flow  angle  at  point  1  (deg). 

Card  34  is  repeated  for  each  discrete  particle  size  at  each  point  on 
the  start  line  where  particles  are  present,  starting  at  the  nozzle  wall  and 
going  toward  the  axis  (reverse  order  of  Card  331. 

Card  3 3  Transonic  Flow  Data  Format:  Namelist 

(Use  only  if  IS.PEC>0 
and  ICON  (2)/2) 

Although  there  are  many  parameters  that  may  be  input  via  the  namelist 
DATA,  most  of  these  have  already  been  assigned  values  in  the  previous  32 
input  cards;  and  some  of  the  parameters  do  not  apply  to  the  transonic  calcu¬ 
lation.  Only  those  namelist  parameters  that  could  have  a  significant  effect 
on  the  pr  'gram  are  included  below.  The  namelist  data  begins  in  Column  2 
with  $DATA.  The  last  card  begins  in  Column  2  and  contains  only  $END. 

Parameter  Assumed  Value 


THID 

Throat  inlet  half  angle  (deg) 

None 

TIIFD 

Fairing  angle  (deg) 

(If  THFD>THID  no  fairing) 

5.0 

T11.TD 

Angle  defining  farthest  downstream 
zone  in  transonic  region  (deg) 

9.0 

Ti  ll  W 

Angle  where  start  line  intersects 
nozzle  wall  (deg) 

12.0 

RKT 

Throat  wall  radius  of  curvature 
divided  by  throat  radius  (>  2.0) 

None 
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Card  35  (Continued) 


Parameter 

ZAX 


(See  F 
ZI 

Z  J 


*Soe  Ret  .  7. 


Assumed  Value 

Value  of  X  where  startline  None 

intersects  nozzle  axis, 
normalized  by  throat  radius 
(If  ZAX  is  not  input  the  pro¬ 
gram  will  calculate  a  value.) 

ig .  3-2  for  an  illustration  of  above  parameters.) 

Number  of  zones  into  which  the  3.0 

upstream  portion  of  transonic 
zone  is  divided*. 

Number  of  zone  into  which  the  2.0 

downstream  po  on  of  transonic 
zone  is  divided* 
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Table  3-6 

MAGNETIC  TAPE  ASSIGNMENTS  FOR  THE  RAMP  PROGRAM 
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Set  internally  to  8  if  ICON (2)  =  0,  NSPECS  >0  and  not  input  on  card  4.  Set  internally  to  5  if  ICON(2) 
=  2  (start  line  data  read  from  cards)  and  not  input  on  card  4. 


3.2.2  Control  Card  Set-Up  for  Univac  1108  Exec  8  and  Program  Overlay 
Structures 

A  typical  run  stream  set-up  for  the  Univac  1108  Exec  8  computer  is 
presented  in  this  section.  Also  included  are  two  tables  which  give  the  overlay 
structures  for  the  two  versions  of  the  RAMP  program. 


Control  Card  Set-Up  for  the  Univac  1108  Exec  8 


(  VFIN 
( VFIN 


g 


r 


DATA  DECK 


VXQT  GO 
( VPRT,  T 
{ VFREE  A 
( VGOPIN  A.,  TPF$~ 
7 VREWIND  A 
7 VUSE  10,  GAS 
7 TASG,  T  2,  F 
(/~KJ ASG ,  T  1,  F 


\\ 


VASG,  T  GAS,  T,  24  15 
7 VASG,  T  T PF$.  F///1000  \ 

77  I 


7  K7FREE  TPF$ 

f/~VASG,  T  A,  T,  17003 
( GUSE  13,  FLOW 

|//GASG,  T  FLOW,  T,  SAVE 

V RUN  CONTROL  CARD 


Assign  data  tape  containing 
thermodynamic  data  (if  required). 
Assign  sufficient  computer 
storage  for  program. 


Assigns  program  tape 


Output  data  tape 


NOTE:  This  schematic  is  typical  of  a  run  control  scheme  for  the  Univac  1108 
Exec  8  computer.  It  is  presented  to  acquaint  the  user  with  magnetic 
tape  and  scratch  area  assignments. 


The  data  deck  has  been  described  in  Section  3.2.1  and  will  be  presented 
first  in  flow  chart  form  and  the  listed  for  several  example  problems  in  Section  3.7. 
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Tables  3-7a  and  3-7b  give  the  program  overlay  structure  for  the  eq 
librium  an<l  finite  rate  chemistry  versions  of  the  RAMP  program.  The 
equilibrium  version  requires  63.  IK  octal  storage  locations  while  the  I'initi 
rate  version  requires  62. 4K  octal  storage  locations. 
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RAMP  OVERLAY  STRUCTURE  FOR  EQUILIBRIUM  CHEMISTRY  VERSION  OF  PROGRAM 


1C 
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Table  3-7b 

RAMP  OVERLAY  STRUCTURE  FOR  FINITE  RATE  VERSION  OF  PROGRAM 


I 
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3.3  OUTPUT  FORMAT 


This  section  describes  the  printed  output  as  well  as  the  binary  tape 
output  for  the  RAMP  code. 

3.3.1  Description  of  Printed  Output 

The  program  output  is  organized  so  that  the  initial  pages  contain  the 
input  data  and  the  initial  data  surface.  Each  data  surface  thereafter  is  con¬ 
structed  along  a  "normal"  to  the  streamlines  which  have  been  chosen  to  repre¬ 
sent  the  flow  expansion  of  the  nozzle  and  exhaust  plume.  The  computer  code 
will  treat  a  chemical  equilibrium  and/or  frozen  or  chemical  non -equilibrium 
flow  expansion  with  or  without  the  presence  of  particles;  consequently  typical 
printouts  for  each  case  are  presented  to  demonstrate  the  output  for  each  case. 
Numbered  flags  on  the  example  printout  sheets  correspond  to  the  numbered 
comments  in  the  following  description  of  the  printout.  The  calculations  are 
performed  in  either  the  English  or  metric  system  oi  units;  hence  units  for 
both  are  given . 

GROUP  1  -  IDENTIFICATION 

(1)  Computer  code  identification 

0  Identifies  gas -particle  flow  solution;  does  not  occur  for 
gaseous  only  case. 

(y)  Case  Number;  Appears  on  each  page  —  may  be  a  maximum 
of  five  digits  . 

(5)  Problem  Title;  Identifies  particular  solution,  appears  on 
each  page  and  may  be  120  spaces. 

GROUP  2  -  PROGRAM  CONTROL 

(5)  These  16  parameters  control  the  execution  of  program 

according  to  the  options  selected.  (See  Card  4  of  the  Input 
Guide  for  an  explanation  of  the  individual  parameters.) 

GROUP  3  —  BOUNDARY  EQUATIONS  (See  input  guide  for  a  detailed  description) 

0  Type  Equation:  Identifies  the  type  of  boundary  equation 
selected . 

(7)  ITR ANS;  Indicates  whether  a  discontinuity  follows  this 
equation. 
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(IT)  Equation  Coefficients:  Apply  to  upper  and  lower  boundary 
equations . 

(?)  MAX;  Maximum  value  of  x  for  which  this  equation  applies. 

GROUP  4  -  GAS-PARTICLE  MIXTURE  IDENTIFICATION 

©  Total  Enthalpy  (appears  for  gas-particle  flow):  Gas  total 
enthalpy  before  it  is  perturbed  (see  page  2-2). 

(Tj)  Indicates  number  of  discrete  particles  used  to  represent  the 
particle  distribution. 


12)  Gas  Identification:  Name  (24  characteristics  max.)  which 
identifies  the  gas.  If  the  gas  data  is  stored  on  a  magnetic 
tape,  this  is  the  name  which  is  used  to  locate  the  gas  data 
on  the  data  tape  (see  Card  8  of  the  Input  Guide). 


GROUP  5 -GAS  PROPERTIES 


Total  Enthalpy  (  appears  for  gas -particle  flow):  Gas  total 
enthalpy  for  this  table. 

O/F  Ratio  (appears  for  gaseous  only  solution):  O/F  for  this 
table. 

Entropy:  May  be  two  maximum  for  each  O/F  or  total  enthalpy. 

Gas  Thermodynamics  Data  Velocity:  May  be  13  maximum  for 
each  entropy  (ft/sec  or  m/sec). 

Gas  Constant:  Value  associated  with  particular  velocity,  etc., 
(ft2/sec2/°R  or  m2/sec2/°K). 

Isentropic  Exponent:  Value  associated  with  particular  velocity,  etc. 

T emperature:  Value  associated  with  particular  velocity,  etc., 

(OR  or  ok). 

Pressure:  Value  associated  with  particular  velocity,  etc., 

(lbf/ft2  or  N/m2). 

Gas  Transport  Data:  (does  not  appear  for  gaseous  only  solution). 

Prandtl  Number:  Value  associated  with  particular  value  of 
velocity,  etc. 

Viscosity:  Value  associated  with  particular  value  of  velocity,  etc. 

Specific  Heat  at  Constant  Pressure:  This  parameter  appears 
for  real  gas  with  multiple  velocity  values.  If  only  one  velocity 
is  used  the  parameter  printed  is  the  viscosity  exponent  for  the 
equation  ^  =  p  (T/T  )exP. 
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GROUP  6  -  PROBLEM  LIMIT  INFORMATION  (see  input  guide) 


R ;  Radial  coordinate  of  upper  cutoff  (units  consistent  with 
boundary  equations). 

X;  Axial  coordinate  of  upper  cutoff  (units  consistent  with 
boundary  equations). 

T HETA;  Angle  of  upper  cutoff  line  (deg) 

R_:  Radial  coordinate  of  lower  cutoff  (units  consistent  with 
boundary  equations). 

X:  Ajcial  coordinate  of  lower  cutoff  (units  consistent  with 
boundary  equations  . 

Theta;  Angle  of  lower  cutoff  line  (deg). 


GROUP  7—  PARTICLE  DESCRIPTION  (does  not  appear  for  gaseous  only 
solution ) 


Particle  Number;  Number  assigned  to  particular  particle  (10  max). 

Particle  Radius:  Radius  of  the  particle  in  microns. 

3  3 

Mass  Density:  Particle  density  (lbm/ft  or  kgm/m  ). 

Emissivity:  Coefficient  of  emmisivity  for  particle  radiation  to 
the  surrounding  medium. 

Accommodation  Coefficient:  Accommodation  coefficient  for 
radiation  from  the  surrounding  medium  to  the  particle. 


Particle  percent  loading  relative  to  the  gas. 


j  =  l 


Individual  particle  percentage  relative  to  the  total 
mass  flow  rate 


UNITS;  Units  with  which  the  particle  temperature-enthalpy 
table  will  be  input  (see  the  input  guide). 

TMELT;  Tempe  rature  of  the  particle  during  the  phase  change 
from  liquid  to  solid  (°R  or  °K). 

(3^  I1SQLID:  Value  of  enthalpy  at  which  the  particle  becomes  a 
solid  (ft^/sec^  or  M^/sec^i. 

(p)  if  LIQUID:  Value  of  enthalpy  at  which  the  particle  begins  the 
transition  from  liquid  to  solid  phase  (ft^/sec^  or  M^/sec^) 
constant  specific  heat  analysis. 
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(40)  CPMELT:  Value  of  the  speci^c  heat  at  constant  pressure  for 
the  particle  in  the  liquid  state  ^.-/sec2/°R  or  m2/sec2/OK). 

CPSOLID:  Value  of  the  specific  heat  at  constant  pressure  for 
the  particle  in  the  solid  state  (ft^/sec^/°R  or  m^/s  ec2/°K). 

ST  P;  Value  of  the  particle  temperature  (°R  or  °K)  (50  max.). 

HP:  Value  of  particle  enthalpy  corresponding  to  (^)  (50  max.) 

(T2)  Re;  Particle  Reynolds  number  (28  max.). 

(4j)  DRAG  COEF;  Particle  drag  coefficient  parameter,  f^,  corre¬ 
sponding  to  ^2)  . 

GROUP  8  -  GAS  START  LINE  INFORMATION 


0)  R;  Radial  coordinate  of  the  data  point  (units  consistent  with 
boundary  equations). 

(0)  X:  Axial  coordinate  of  the  data  point  (units  consistent  with 
boundary  equations). 

^6)  iM;  Local  value  of  the  Mach  number  (must  be  >  1.0). 

(47)  THETA:  Local  flow  deflection  angle  (deg). 

(^)  S;  Local  value  of  entropy  level  (ft^/sec^/  °R  or  m^/secZ/°K). 

(0  MACH  ANGLE:  Local  value  corresponding  to  M  (deg). 

(0  ^hock  Angle;  Local  value  of  shock  angle  if  point  is  a  down¬ 
stream  shock  point  (deg). 

(0  H-TOTAL  (gas -particle  flow):  Gas  total  enthalpy  level 

,,2  ,  2  2,  2v 

(tt  /sec  or  m  /sec  )• 

(0  O/F  (gas  only  flow):  local  value  of  O/F. 


G  R  OU  P 


0 

0 

0 

© 

© 

0 


9  -  PARTICLE  START  LINE  INFORMATION  (does  not  appear 
for  gaseous  only  solution) 

POINT :  Data  point  at  which  this  particle  is  present. 

S  PEC  IE:  Particle  number  for  this  data  point. 
u  :  Particle  axial  component  of  velocity  (ft/sec  or  m/sec). 

V :  Particle  radial  component  of  velocity  (ft/sec  or  m/sec). 

0  Particle  streamline  deflection  angle  (rad) 

2  2  2  2 
h:  Particle  enthalpy  level  (ft  /sec  or  m  /sec  ) 

£:  Local  particle  concentration  (slug/ft^  or  kgm/m  ) 
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GROUP  10  -  MESH  CONTROL  CRITERIA  (see  input  guide) 


D  LI:  Point  insert  criteria  for  the  nozzle-plume  interior 
solution  (units  consistent  with  boundary  equations). 

DXA;  Line  insert  criteria  along  the  axis  (units  consistent 
with  boundary  equations). 

DEM:  Insert  criteria  near  a  particle  limiting  streamline 
(units  consistent  with  the  boundary  equations). 


DLD:  Point  delete  criteria  (units  consistent  with  the 
boundary  equations). 


bj)  DEG  PM:  Incremental  angle  to  be  used  in  the  numerical 

Integration  to  define  the  Prandtl-Meyer  expansion  fan  (deg), 


Interpolation  factor  used  in  the  axis  point  solution. 


GROUP  1  1  -  DATA  LINE  FLOW  PROPERTIES 


NOTE;  The  output  format  for  all  data  surfaces  are  the  same  with  each 
point  type  on  the  line  being  identified.  Several  different  lines  are  shown 
to  indicate  typical  line  constructions. 


Line  number;  lines  are  numbered  in  ascending  order. 
Indicates  point  number  on  the  line. 

Indicates  point  type  and  flow  regime.  These 


(6^)  Lino: 

(6$)  Point: 

Description: 
options  are; 


Point  T ype 

Output  F ormat 

a.  Input 

INPUT  POINT 

b.  Interior 

INTER 

c.  Wall 

WALL 

d.  Free  Boundary 

FR EEBD 

c.  Prandtl-Meyer 

PRN-MR 

!.  Upstream 

UP-SHK 

g.  Downstream 
Shock 

DWNSHK 

h.  Shock 

Interaction 

SOKINT 

i.  Slipline 

SLIP 

Flow  Regime 

Output  Format 

a.  Continuum 

CONTIN 

b.  Vibrationally  Frozen 

VIBFRZ 

c.  Rotationally  Frozen 

ROTFRZ 

d.  Transitionally  Frozen 

TRNFRZ 
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NOTES:  The  point  type  and  flow  regime  will  appear  in  the  appropriate  com¬ 
bination  to  completely  describe  the  data  point. 


Items 


70/  through  (81)  refer  to  gas  conditions. 


R;  Radial  coordinate  of  the  data  point  (units  consistent 
with  the  boundary  equations) 

X:  Axial  coordinate  of  the  data  point  (units  consistent 
with  the  boundary  equations) 

M:  Local  value  of  the  Mach  number 

0:  Local  flow  deflection  angle  of  the  gas  streamline  (deg) 

S:  Local  entropy  level  of  the  gas  (ft^/sec^/°R  or  m^/sec2/°K) 

V;  Local  magnitude  of  the  velocity  (ft/sec  or  m/sec) 

H-TOTAL  (gas -particle  flow):  Gas  total  enthalpy  level 

,,.2  ,  2,2,  2. 

(ft  /sec  of  m  /sec  ) 

O/F  (gas  only  flow):  Local  value  of  O/F 

Mach  Angle:  Mach  angle  corresponding  to  the  Mach  number  (deg) 

-  2  2 

P;  Local  pressure  (lbf/Ln  or  N/m  ) 

1  3  3 

g:  Local  density  (slug/ft  or  kgm/m  ) 

T;  Local  static  temperature  (°R  or  °K) 

GAS  CONST:  Local  value  of  the  gas  constant 
(ft^/sec^/°R  or  m^/sec^/°K) 

LOCAL  GAMMA:  Local  value  of  the  isentropic  exponent 

SHOCK  ANGLE;  Local  value  of  the  downstream  shockwave 
angle  (deg) 


NOTE:  Items  (82)  thr  ough(8^  refer  to  the  particle  properties, 
out  does  not  appear  for  gas  only  flow. 


This  print- 


V;  Local  magnitude  of  particle  velocity  (ft/sec  or  m/sec) 

9;.  Local  particle  streamline  deflection  angle  (deg) 

DM:  Difference  in  Mach  number  between  the  gas  and  particle 

2  Z  2  2 

h:  Local  particle  enthalpy  level  (ft  /sec  or  m  /sec  ) 

3  3 

g_:  Local  particle  concentration  (slug/ft  or  kgm/m  ) 

7_:  Local  particle  temperature  (°R  or  °K) 

Indicates  the  data  point  is  on  a  particle  limiting  streamline 
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GROUP  12  -  INTEGRATED  GAS  AND  PARTICLE  MASS  FLOW  RATES 


NOTE:  The  units  of  the  flow  rates  depend  on  the  units  of  the  boundary  equa¬ 
tion.  For  the  following  units  perform  the  indicated  operation. 


Unit  s 

F  actor 

to 

in . 

1/144 

slug/ sec 

ft 

1 

slug /sec 

M 

1 

kg  /sec 
bm/ 

None 

(Ref.  length)  ^ 

slug/ sec 

Gas  mass  flow  rate 

Particle  total  mass  flow  rate 

Sum  of  the  gas  and  particle  mass  flow  rate 

Particle  percent  loading  relative  to  the  gas  (numerical 
integration  results) 

Particle  percent  loading  relative  to  mixture 


GROUP  P  -  MOMENTUM  INTEGRATION  RESULTS 

This  is  a  calculation  of  the  component  of  the  net  thrust  due 
to  the  gas  and  particle  momentum  across  the  starting  line. 

1  OltCEX,  FORCEY:  Net  axial  and  radial  component  of  the 
thrust  vector  (Ib^.  or  N) 

TORQZ:  Net  torque  resulting  from  the  thrust  (ft-lb^.  or  m-N) 

ISP;  Specific  impulse  corresponding  to  FORCEX  (lb^-sec/lb^) 

(j)5)  This  is  the  incremental  gas  and  particle  contribution  to  the 
thrust  and  torque  vector 

DELFXG,  DELFYG:  Net  gaseous  axial  and  radial  component 
of  the  thrust  vector  (lb^.  or  N) 

T OR QXG:  Net  torque  resulting  from  the  gaseous  contribution 
to  the  thrust  vector  (ft-lb^.  or  m-N) 

DELFXP,  D E L F Y P :  Particle  momentum  contribution  to  the 
thrust  vector  (Ib^.  or  N)' 

TORQZ  P;  Net  torque  resulting  from  the  particle  contribution 
to  the  thrust  vector  (ft -lb.  or  m-N) 
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Problem  Solution  Iteration  Control 


,96)  ITR:  Number  of  iterations  required  for  this  point  to 
converge  within  the  convergence  criteria 


GROUP  14  -  PRESSURE  INTEGRATION  RESULTS 


(97)  This  calculation  is  the  thrust  and  torque  resulting  from  the 
gas  pressure  acting  on  the  nozzle  wall. 

FORCEX,  FORCEY:  Axial  and  radial  component  of  the  thrust 
(lb.  or  N).  This  thrust  vector  includes  the  momentum  and 

pressure  contribution. 

TORQX;  Net  torque  resulting  from  the  thrust  (ft-lb^.  or  m-Nl 

DE LEX  ,  DE LF  Y :  Incremental  force  in  the  axial  and  radial 
directions  resulting  from  the  pressure  acting  on  the  nozzle 
wall  (lbj.  or  N) 

ISP;  Specific  impulse  corresponding  to  FORCEX  (lb^-sec/lb^) 

GROUP  15  -  PERCENT  CHANGE  IN  MASS  FLOW  RATE,  MOMENTUM, 
ENERGY,  AND  ISP 


NOTE:  Thi  s  is  a  comparison  of  the  mass  flow  rate,  momentum,  energy  and 
ISP  relative  to  the  mass  flow  rate,  momentum,  energy  and  ISP  through  the 
input  (starting  line)  surface.  The  percent  change  should  be  near  zero;  any 
variation  from  zero  is  an  indication  of  accumulated  error  in  the  numerical 
soluti  on . 
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C ;  HOll  I*  16  -  FREE  MOLECULAR  CONTROL  PARAMETERS 


!I08l  VTBNO:  Reciprocal  of  the  Knudsen  number  at  which 

v''  the  vibrational  energy  mode  thermally  freezes. 

409)  R OTNO;  Reciprocal  of  the  Knudsen  number  at  which 
the  rotational  energy  mode  thermally  freezes. 

fl  10/  T R ANNO;  Reciprocal  of  the  Knudsen  number  at  which 
'  translational  energy  mode  thermally  freezes. 

fl  l~l)  CHAR  L;  Characteristic  length  used  in  the  mean  free  path 
calculation  used  to  compute  the  local  value  of  the  Knudsen 
number  (units  consistent  with  the  boundary  equations). 

1  12!  G AM  V :  Value  of  the  isentropic  exponent  to  be  used  in  the 
vibrationally  frozen  flow  calculations. 

1  1  3f  G AMR:  Value  of  the  isentropic  exponent  to  be  used  in  the 

v  rotationally  frozen  flow  calculations. 


N OT E:  Items  112  and  113  are  the  gas  species  data  to  be  used  in  the  cal 
dilation  of  parameters  used  in  the  Knudsen  number  calculation  (10  max. 
may  be  used) . 


GROUP  17  -  SPECIES  THERMODYNAMIC  AND  REACTION  DATA 


1 14) 

V  .. 


^17) 


;i  1 8) 

/"'N 

a  i  9) 


(12  0J 

1  2  1; 

v122' 


These  7  parameters  control  the  execution  of  the  finite  rate 
chemistry  calculations  according  to  the  options  selected. 
(See  Card  5  of  the  Input  Guide  for  an  explanation  of  the 
individual  parameters.) 

Prandtl  number  of  the  gas  (dimensionless) 

Absolute  viscosity  of  the  gas  (poise) 

Viscosity  temperature  exponent 
Reaction  number 
Reaction  being  considered 

A:  Pro -exponential  factor  (cm -particle  -  sec) 

N;  Temperature  exponent 
B:  Activation  energy  (cal/mole) 


M:  Temperature  exponent 


R  - T y pe;  Reaction  type 
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:  Rate  constant  type 


K -Type 


Catalytic  species  being  considered.  (See  Card(s)  14  for  an 
explanation.) 


GROUP  18 


-SPECIES  MOLE  FRACTIONS  ON  THE  STARTLINE 


Point:  Indicates  the  point  number  on  the  startline 
Corresponding  species  mole  fractions  at  the  point 
Chamber  pressure  (atm) 

Chamber  temperature  (°K) 


Species  mole  fractions  at  a  point  on  the  data  surface 


LOCKMf  to  Huntsville  research  4  engineering  center 
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Sample  Printout 

(or  Two -Phase  Chemical  Equilibrium  Flow 
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Sample  Printout  for  Two-Phase  Chemical  Equilibrium  Flow 


Sample  Printout  for  Two-Phase  Chemical  Equilibrium  Flow 
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NOTES:  (1)  Typical  printout  for  a  data  surface  inside  the  nozzle. 

(2)  Some  points  have  been  omitted  for  demonstration  purposes. 
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NOTES;  (1)  Typical  printout  for  a  data  surface  in  the  exhaust  plume. 

(2)  Some  points  have  been  omitted  for  demonstration  purposes. 


Sample  Printout  for  Single-Phase  Chemical  Equilibrium 
Flow  with  Free  Molecular  Considerations 
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NOTES:  (1)  Typical  printout  for  a  startline  data  surface  containing  a  Prandtl -Meyer  Expansion. 
(2)  Some  points  have  been  omitted  for  demonstration  purposes. 
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(2)  Some  points  have  been  omitted  for  demonstration  purposes. 
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Sample  Printout  for  Single-Phase 
Finite  Rate  Chemistry  Flow 
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Sample  Printout  for  Single-Phase  Finite  Rate  Chemistry  Flow 
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NOTES:  (1)  Typical  printout  for  the  startline  data  surface. 

(2)  Some  points  have  been  omitted  for  demonstration  purposes 
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3.3.2  Description  of  Unformatted  Binary  Output 

The  binary  tape  output  on  unit  13  is  described  in  this  section.  Initial 
input  data  are  written  on  the  first  part  of  the  data  tape  and  gaseous  and 
particle  data  are  written  out  for  each  data  point  in  the  flow  field.  This  tape 
is  formatted  so  that  it  may  be  used  by  other  auxiliary  routines  (plot,  plume 
impingement  or  radiation). 

GROUP  I  —  General  Information 
Number  of  Records  =  1 

Write  (  )  (HEADER (I)  ,1  =  1,  60),  ISPECS,  IMETRIC 

•  HEADER 

•  run  identification  (2A4) 

•  date  (3A4) 

•  description  (55A4) 

•  ISPECS  =  number  of  particle  species  to  be 

considered 

•  IMETRIC  =  0  English  flowfield  units 

=  1  Metric  flowfield  units 


GROUP  II  -  Gas  Data 

Number  of  Records  =  1  +  IOF*IS 

Write  (  )  (BETA(I),  1  =  1,6),  IOF,  IS 

•  BETA  is  gas  identification  name  (6A4) 

•  IOF  number  of  total  enthalpy  cuts  through 

"Mollier  chart"  (max  =  10) 

•  IS  number  of  entropy  cuts  (max  =2) 

DO  M=l,  IOF 
DO  1  =  1,  IS 

Write  (  )  IV.IDATA,  ((TEMP(J,K),  K  =  l,  IDATA),  J=l,  IV),IVT, 
((CPM( J,  K),  K  =  l,  3),  J=l.  IVT),  RSTAR,  PINF,  EMINF, 
GAMINF,  FINF,  EXINF,  XSHIFT 

"^Determined  from  ICON (9). 
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IV 

number  of  velocity  cuts  through  "Mollier 

chart"  for  this  total  enthalpy  and  entropy 

+  2  (max  =  15) 

IDATA 

number  of  gaseous  species  present  for  this 

total  enthalpy  and  entropy  (max  =  98) 

C.AM1NF 

freestream  isentropic  exponent 

IVT 

=  I V-2 

RSTAR 

throat  radius  (ft  or  meters) 

PINF 

ambient  pressure  (psf  or  Newtons/m  ) 

EMINF 

freestream  or  external  stream  Mach  number 

EXINF 

limit  to  which  equation  applies 

FINF 

linear  static  pressure  gradient  (slope)  0  approach 

TEMP 

contains  the  following  information  for  each  value 

of  IOF,  IS 

X  SHI  FT 

nozzle  length  (ft  or  meters) 

12345678  9 
Pf 


1 

2 

3  Htg  P 

5  1 

c 
o 
n 
s 
t 
a 
n 
t 


T  S  i|/  y  Mc  X, 

%  t-Jr  .  ■* 


c 

o 

n 

s 

t 

a 

n 

t 

I 


M* 


IV  Htg  P  T  S  ij/  y  M  X , 


.  .  .  .  IDATA 


Mole 

Fractions 


X 


F 


/  \  Species 
y  J  Name 


•  Pf 

•  Htg 

•  P 

•  T 

•  S 

•  4> 


freeze  pressure  (atm) 

total  enthalpy  of  the  gas  (cal/gm) 

pressure  (atm) 

temperature  (°K) 

entropy  (cal/gm-°K) 

molecular  weight  (gm/gm-mole) 
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•  y 

0  M 

c 

•  M* 

0  M 

•  CPM 

1 

2 

3 


isentropic  exponent 
chamber  Mach  number  =  0 
throat  Mach  number  =  1 
Mach  number  for  this  table  entry 

contains  the  following  information 


1  2  3 


IV  T 

•  Pr 

•  A* 


Prandtl  number 
viscosity  (poise) 

specific  heat  at  constant  pressure  (cal/gm-°K) 


GROUP  III  —  Gas  Partical  Data 


Number  of  Records  =  ISPECS+1 


Write  (  )  IDUM,  ((PSP(I,  J),  1=1,2),  J  =  l,  IS  PECS') 

•  IDUM  dummy  word 

th  3  3 

0  PSP(1,  J)  mass  density  of  j  particle  (slug/ft  or  kgm/m  ) 

•  PSP(2,  J)  radius  (ft  or  m) 

DO  1=1,  IS  PECS 

Write  (  )  NTAB1,  TMELT,  HSOL,  HLIQ,  (HFIT (N,  1,1),  HFIT (N,  2, 1), 
N  =  l,  NTAB ) 

•  NTAB  1 

•  TMELT 

•  HSOL 

•  HLIQ 

•  HFIT  (N,  1,1) 

•  HFIT(N,  2,1) 

•  NTAB 


number  of  table  entries  for  this  species 
melt  temperature  (°R  or  °K) 

enthalpy  before  phase  change  (ft^/sec  -  R  orra'/s  oc2-°K) 
enthalpy  after  phase  change  (ft2/sec2-(  R  or  m2/sec2-°K) 

temperature  (°R  or  °K) 

2  2  2  2 
enthalpy  (ft  /sec  or  m  /sec  ) 

number  of  table  entries  for  this  species 


Note  that  if  NTAB  =  1  species  is  ideal  and  HFIT(1,  l,I)  =  Cp^  (specific  heat  of 
liquid)  and  HFIT ( 1 ,  2, 1)  =  Cpg  (specific  heat  of  the  solid). 
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GROUP  IV  -  Flowfield  Data 
Number  of  Records  =  1  +  2  *  ILAST 


Write  (  )  (ILAST,  1  =  1,7),  THRUST,  AEXIT.IEXIT 


•  ILAST 

•  THRUST 

•  AEXIT 

•  IEXIT 


number  of  date,  points  on  the  following  normal 
surface.  If  ILAST  =  0  there  is  no  information 
to  follow 

thrust  (lbf  or  Newtons' 

2  2 

exit  plane  area  (ft  or  in  ) 


exit  flag 


j  0  if  no  exit 
|  1  if  exit 


Write  (  )  ((ITYPE,  R,  X,  M,  0,  S,  p  ,  6,  Htg  ),  1  =  1,  ILAST),  (V,  1=1,  ILAST), 
(W  ,  1  =  1,  ILAST),  ((p,  P,  T,  y  .$),  1  =  1.  ILAST) 

•  ITYPE  identifies  type  of  point  (wall,  shock, 

interior,  etc.) 

0  input  point 

1  interior  point 

2  wall  point 

3  free  boundary 

4  upstream  shock  point 

5  Prandtl-Meyer  point 

6  downstream  shock  point 

7  slip  line 

8  shock  intersection  point 

9  vibrational  mode  frozen 

10  rotational  mode  frozen 

11  translational  mode  frozen 


•  R 

•  X 

•  M 

•  6 

•  S 

•  M 

•  6 

•  Htg 


radial  coordinate  (It  or  ml 
axial  coordinate  (It  or  m) 

Mach  number 
flow  angle  (rad) 

entropy  (ft^/sec^-°R  or  m^/sec^-°K) 
Mach  angle  (rad) 
shock  angle  (rad) 

2  2  2  2 
gas  total  enthalpy  (ft  /sec  or  m  /sec  ) 
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•  V  velocity  (ft/sec  or  m/sec) 

•  W  mass  flow  between  this  streamline  and  axis 

b  (slug/sec  or  kg  /sec) 

rri  3  o 

•  p  gas  density  (slug/ft  or  kg  /m  ) 

2 

•  P  pressure  (lbf-ft  or  N/m  ) 

•  T  temperature  (°R  or  °K) 

•  y  isentropic  exponent 

•  R  universal  gas  constant  divided  by  molecular 

weight  (ft2/sec2-°R  or  m2/sec2-°K) 

DO  I  =  1,  I  LAST 

Write  (  )  ISP,  ({U,  V,  T,  H,  p),  J  =  1,ISP),  ILIMIT 

number  of  particle  sizes  at  this  point 
axial  velocity  component  (ft/sec  or  m/sec) 
radial  velocity  component  (ft/sec  or  m/sec) 

temperature  (°R  or  °K) 

2  2  2  2 
enthalpy  (ft  /sec  or  m  /sec  ) 

3  3 

particle  density  (slug/ft  or  kg^/m  ) 

0)  not  a  limiting  streamline 

1  |  is  a  limiting  streamline 

NOTE;  The  flowfield  data  are  repetitively  stored  on  tape  as  indicated  above  — 
normal  surface  after  normal  surface.  When  ILAST  =  0  the  end  of  the 
data  has  been  reached. 


•  ISP 

•  U 

•  V 

•  T 

•  H 

•  P 

•  ILIMIT 
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3.4  PROGRAM  UTILIZATION  COMMENTS 

The  primary  purpose  of  this  section  is  to  provide  the  prospective  user 
of  Lockheed's  RAMP  program  backup  information  for  inputting  and  trouble¬ 
shooting  the  code.  This  section  also  presents  the  authors'  experience  on 
what  to  look  for  and  what  to  do  if  certain  problems  are  encountered 
while  using  the  program.  Included  in  the  discussion  are: 

1.  A  description  of  each  mesh  control  parameter  and  some 

suggested  values 

2.  An  explanation  of  "error"  messages  and  other  diagnostics,  and 

3.  Problems  commonly  encountered  and  suggestions  to  correct  them. 

It  is  envisioned  that  this  section  will  aid  the  user  in  becoming  familiar 
with  the  use  of  the  code.  However,  only  experience  in  utilizing  the  code  will 
provide  knowledge  for  applying  the  code. 

3.4.1  Mesh  Control  Variables 

This  subsection  discusses  each  of  the  mesh  control  parameters  which 
the  program  utilizes.  The  function  of  each  of  these  parameters  is  discussed 
in  relation  to  potential  mesh  control  problems  in  construction  of  a  typical 
flow  solution. 

Control  of  the  insertion  of  interior  points  and  the  deletion  of  points  on 
a  known  data  surface  is  the  function  of  subroutine  CHECK.  CHECK  is  nor¬ 
mally  called  from  subroutine  PHASE  1  after  a  line  has  been  completed  unless 
a  special  circumstance  is  encountered  where  a  point  needs  to  be  inserted  or 
deleted  due  to  streamline  crossings.  The  axial  step  control  is  performed  by 
PHASE  1. 

3. 4. 1.1  Lower  Wall  Interpolation  Factor  (STEP(8)) 

Characteristic  theory  governs  the  construction  of  the  initial  data  point 
on  a  new  surface.  The  maximum  axial  step  at  the  lower  boundary  is  deter¬ 
mined  by  the  intersection  of  the  right-running  characteristic  (RRC)  emanating 
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from  the  first  interior  point  on  the  normal  and  the  lower  boundary.  The 
RRC  is  inclined  at  the  local  characteristic  angle  (9-/1)  toward  the  lower 
boundary.  The  axial  step  downstream  of  the  known  data  surface  is  deter 
mined  by  the  intersection  of  the  RRC  line  (which  is  located  a  factor  of 
STEP(8)  (<  1.0)  of  the  distance  between  the  axis  point  and  first  interior 
point)  with  the  lower  boundary.  Details  of  this  construction  are  noted  in 
the  sketch  below. 


AX  i  =  Initial  Axial  Step 

ARq  =  Initial  Radial  Point  Spacing 

AX  =  Maximum  Initial  Axial  Step 
o 

/i  =  Local  Characteristic  Angle 

V  =  Local  Velocity 

The  ARRC  Step  AX  j  is  given  by: 

AR  L  =  ARQ[l  -  STEP(8)] 

AX  .  =  AR  *  STEP(8)  *  tan(jr/2  -  fl.) 
1  o  I 
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Consequently,  STEP(8)  is  the  primary  parameter  which  controls  the  mesh 
construction  and  also  has  a  significant  impact  on  program  run  time.  The 
radial  point  spacing  on  the  start  or  previous  line  also  helps  to  determine  the 
initial  axial  step.  The  closer  the  point  spacing  the  smaller  the  axial  step. 

Step  size  also  affects  the  conservation  of  mass  flow,  momentum  and 
energy.  Most  cases  will  maintain  good  mass  flow  conservation.  However, 
there  can  be  cases  where  poor  mass  flow  conservation  is  observed.  In  these 
instances,  normally  there  is  an  error  in  some  of  the  input  data.  If  no  error 
is  detected  it  may  be  necessary  to  take  smaller  step  sizes  to  maintain  the 
particle  mass  flow  conservation.  Gaseous  cases  with  larger  gradients  across 
the  flow  field  may  also  require  smaller  steps  and  more  mesh  points  in  order 
to  conserve  mass  flow. 

3. 4. 1.2  Axis  Point  Insertion  Criteria  (STEP(6)) 

The  axis  point  insertion  control  parameter,  STEP(6),  limits  the  maxi¬ 
mum  axial  step  between  data  surfaces.  If  the  data  surface  location  between 
axis  points  for  any  reason  exceeds  STEP(6),  the  interpolation  factor  for  the 
lower  wall  solution  (STEP(8))  will  be  multiplied  by  0.8.  This  results  in  a 
smaller  axial  step.  The  new  axis  point  will  be  recomputed  until  it  is  less 
than  a  distance  of  STEP(6)  away  from  the  known  axis  point. 

Typical  values  for  STEP(6)  are:  0.1  throat  radii  for  two-phase  nozzle  flow 
problems ,  0.1  exit  radii  for  two -  phase  plume  flow  problems  and  0.2thr oat/ radius 
for  gas  only  nozzle  solution  and  0.2  exit  radius  for  gas  only  plume  flows. 

3. 4. 1.3  Interior  Point  Insertion  Criteri  (STEP(3)) 

The  purpose  of  the  point  insertion  capability  is  to  provide  control  of 
the  streamline  spacing  in  a  rapidly  expanding  flow.  Insertion  of  a  stream¬ 
line  is  accomplished  in  the  following  manner.  The  distance  along  a  normal 
line  between  two  grid  points  is  computed  in  subroutine  CHECK.  If  this  dis¬ 
tance  exceeds  STEP(3)  a  new  streamline  will  be  inserted  midway  between  the 
two  existing  points.  The  new  streamline  point  will  be  retained  as  the  solu¬ 
tion  progresses. 
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3. 4. 1.4  Particle  Limiting  Streamline  Insertion  Criteria  (STEP(9)) 


This  parameter  provides  for  control  of  streamline  spacing  on  a  data  sur¬ 
face  based  on  the  entropy  difference  between  two  streamlines.  This  option  is 
only  used  for  two -phase  flow  cases  and  then  only  between  a  particle  limiting 
streamline  and  the  adjoint  gas  streamline.  STEP(9)  is  the  maximum  allowable 
percentage  change  in  entropy  near  a  particle  limiting  streamline.  The  procedure 
is  to  first  calculate  the  entropy  difference  (AS)  between  the  particle  limiting 
streamline  and  the  adjacent  streamline,  above  or  below  the  particle  limiting 
streamline.  If  AS  is  greater  than  STEP(9)  times  the  entropy  level  of  the  limit¬ 
ing  streamline  then  a  new  streamline  point  will  be  inserted  midway  between  the 
two  points.  The  procedure  is  identical  to  the  interior  point  insertion  scheme 
once  the  program  has  determined  that  a  point  should  be  added. 

This  mesh  control  parameter  is  utilized  to  avoid  large  entropy  gradients 
near  limiting  streamlines.  There  will  naturally  be  an  entropy  gradient  across 
a  limiting  streamline,  from  a  region  where  particles  are  present  to  a  gas -only 
region.  However,  use  of  the  STEP(9)  control  can  minimize  the  chance  of  en¬ 
countering  numerical  difficulties  near  limiting  streamlines  in  two -phase  flow 
problems . 

3. 4. 1.5  Prandtl-Meyer  Integration, (STEP(  1)) 

This  parameter  controls  the  number  of  mesh  points  which  are  distri¬ 
buted  through  the  Prandtl-Meyer  expansion.  STEP(l)  is  the  size  of  the 
integration  step  in  degrees  that  is  used  to  numerically  integrate  the  Prandtl- 
Meyer  function.  STEP(l)  then  becomes  the  number  of  degrees  between  mesh 
points  in  the  expansion  fan. 

3. 4. 1.6  Point  Deletion  Criteria  (STEP(7)) 

The  purpose  of  this  mesh  control  parameter  is  to  limit  the  spacing  of 
adjacent  streamline  points  on  a  normal  to  a  minimum  value.  When  stream¬ 
lines  begin  to  converge  the  solution  can  encounter  numerical  difficulty  when 
computing  locations  of  intersections  of  characteristic  lines  with  normals  to 
streamlines . 
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The  procedure  is  to  determine  the  radial  and  axial  spacing,  the  Mach 
number  difference  and  flow  angle  differences  between  two  consecutive  points 
on  a  normal  (AR,  AX,  AM,  A0).  The  average  R,  X,  Mach  number  and  flow 
angle  for  the  two  points  are  calculated  (R,  X,  M,  8).  R  and  X  are  multiplied 
by  STEP(7)  and  M  and  8  are  multiplied  by  built  in  values.  If  AR  and  AX  are 
less  than  the  average  locations  (R  and  X)  times  STEP(7)  and  AM  and  A9  are 
less  than  the  average  values  (M  and  0)  times  the  built-in  values  then  one  of 
the  two  points  will  be  deleted.  This  procedure  is  shown  in  the  sketch  on  the 
following  page. 

The  program  will  not  delete  the  following  types  of  points:  upper  or 
lower  boundary,  free  boundary,  Prandtl -Meyer ,  shock,  slipline  or  limiting 
streamlines.  Normally,  the  I  point  is  deleted. 
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1.4  .  1 .7 


Finite  Rate  Chemistry  Mesh  Controls 


The  mesh  control  parameters  for  a  finite  rate  chemistry  case  are  the 
same  as  in  the  previous  sections  with  the  following  exception. 

The  lower  wall  interpolation  factor,  STEP(8),  is  overriden  by  the  "CFL" 
condition  which  requires  that  the  Mach  lines  from  any  new  point  must  inter¬ 
sect  the  base  line  between  the  base  point  and  either  of  its  neighboring  points. 
This  condition  is  assured  by  the  equation 

CFL  =  AnVm2  -  1 

where  A^  is  the  normal  distance  between  any  2  adjacent  points  on  the  base 
line  and  M  is  the  Mach  number.  CFL  is  the  maximum  distance  along  the 
streamline  through  the  base  point  the  new  point  may  extend  and  still  ensure 
that  the  Mach  lines  intersect  the  adjacent  points.  This  distance  is  calculated 
for  each  point  on  the  base  line  and  the  minimum  distance  is  used  for  the  entire 
new  line. 

3.4. 1.8  Recommended  Mesh  Control  Variables 

Table  3-8  presents  a  set  of  recommended  values  for  the  mesh  control 
variables.  This  set  of  mesh  control  values  has  been  found  by  the  authors  to 
be  general  for  most  of  the  cases  which  have  been  run.  However,  there  prob¬ 
ably  will  be  cases  where  the  run  time  or  conservation  of  mass  flow,  energy 
and  momentum  will  be  unsatisfactory  and  adjustments  to  the  mesh  will  be 
required.  As  the  user  becomes  familiar  with  the  code  and  runs  more  cases, 
changes  in  the  mesh  control  variables  and  the  resulting  effect  on  the  flow 
solution  will  become  apparent. 

3. 4. 1.9  Mesh  Spacing  Effect  on  Run  Time  and  Conservation  Equations 

Run  time  is  significantly  affected  by  the  point  density  for  two  reasons: 

(1)  the  computer  run  time  is  a  direct  function  of  the  number  of  points  on  the 
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ECOMMENDED  MESH  CONTROL  VALUES 


NOTE:  If  no  limiting  streamline,  axis  insertion,  or  interior  insertion  control  is  desired 
input  a  large  number  (~  1000).  If  no  deletion  is  desired  use  an  extremely  small 
number  (l.E-5). 


* 


normals,  i.e.,  for  the  same  number  of  normal  surfaces  and  twice  the  number 
of  points  on  each  normal  there  will  be  a  factor  of  two  difference  in  run  time, 

(2)  the  more  points  on  a  given  normal,  the  smaller  will  be  the  step  size  which 
will  result  in  more  execution  time,  i.e.,  twice  as  many  points  on  a  surface 
will  result  in  the  maximum  axial  step  having  one -half  the  length.  This  coupled 
with  twice  the  points  on  the  normal  will  result  in  four  times  as  much  computer 
time. 


Coupled  with  conserving  run  time  is  the  necessity  that  the  solution  be 
numerically  valid,  i.e.,  conserve  mass,  momentum  and  energy.  The  con¬ 
servation  functions  for  numerical  solutions  of  the  type  employed  by  the  RAMP 
program  are  somewhat  controlled  by  the  mesh  spacing.  For  flows  which  con¬ 
tain  large  gradients  in  flow  properties  it  is  desirable  to  have  more  mesh  points 
to  avoid  any  large  errors  in  mass  flow,  system  energy  and  momentum.  Thus 
there  is  some  happy  median  between  run  time  and  system  conservation. 


3.4.1.10  Point  Spacing 

The  type  of  solution  which  the  RAMP  code  employs  lends  itself  to  uni¬ 
formly  spaced  points  on  each  data  surface.  However,  particular  flow  solutions 
which  have  large  radial  gradients  require  close  point  spacing  in  the  region  of 
the  large  gradients.  For  these  cases,  smaller  axial  steps  are  necessary. 


3.4.2  Explanation  of  Error  Messages  and  Other  Messages 

1.  Previously  noted  errors  have  propagated  to  lower  boundary  or 
problem  limits  have  been  reached.  Case  terminated. 

The  program  has  terminated  properly,  the  problem 
limits  set  by  the  user  have  been  reached  or  another 
error  which  has  been  identified  via  a  message  has 
been  encountered. 

2.  Lower  boundary  solution  will  not  converge. 

The  program  is  unable  to  obtain  a  solution  at  the  lower 
boundary  within  the  user  specified  number  of  iterations. 
The  code  will  back  up  the  line  a  maximum  of  10  times 
in  order  to  try  to  obtain  a  solution.  If  no  solution  is 
reached  then  the  execution  will  terminate. 
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3.  Interior  solution  will  not  converge. 

The  program  is  unable  to  obtain  a  solution  for  an  interior 
point  within  the  user  specified  number  of  iterations.  The 
code  will  backup  and  take  a  smaller  step.  If  the  point  still 
will  not  converge  after  backing  up  ten  times  then  the  solu¬ 
tion  will  be  terminated. 

Possible  causes  of  this  problem  are; 

•  Input  error  in  boundary  equations 

•  Numerical  difficulties  due  to  large  point  spacing 
in  regions  of  steep  gradients.  Use  more  points 
or  take  smaller  steps. 

•  If  this  occurs  early  in  the  solution,  the  startline 
may  not  be  physically  or  numerically  suited  to 
the  problem.  Check  the  startline. 

•  Check  for  obvious  errors  in  thermodynamic  data. 

4.  Upper  boundary  solution  will  not  converge 

The  program  is  unable  to  obtain  a  solution  at  the  upper 
boundary.  Causes  and  fixes  are  same  as  item  3, 

5.  Shock  solution  will  not  converge.  Line  terminated. 

The  code  is  unable  to  obtain  a  solution  for  a  shock  point 
within  the  user  specified  number  of  iterations.  If  this 
occurs  early  in  solution  it  could  be  due  to  an  inconsistency 
of  the  startline  and  boundary  equations.  May  be  taking 
too  large  a  step  —  decrease  step  size. 

6.  ITSUB  will  not  converge  in  RGMOFP 

Real  gas  solution  of  Mach  number  as  a  function  of  pressure 
will  not  converge  within  preset  number  of  iterations.  Check 
the  thermodynamic  tables  for  errors  and  also  the  plume 
boundary  conditions. 

7.  ITSUB  will  not  converge  in  RGVOFM 

Real  gas  solution  of  velocity  as  a  function  of  Mach  number 
will  not  converge  within  preset  number  of  iterations.  Check 
the  thermodynamic  tables  for  errors.  For  two-phase,  real 
gas  cases  with  a  startline  input  from  cards,  be  sure  all  the 
input  Mach  numbers  fall  within  the  thermodynamic  table 
entries . 

8.  ITSUB  WNC  in  THETPM 

Unable  to  balance  the  last  Prandtl -Meyer  point  pressure 
with  the  back  pressure  at  the  free  boundary  or  flow  angle 
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at  a  solid  boundary,  within  the  preset  number  of  iterations. 
This  can  be  caused  by  poor  thermodynamic  table  construction 
or  incompatible  plume  boundary  conditions: 

9.  ITSUB  WNC  in  AOASTR 

Unable  to  balance  the  mass  flow  at  input  A/A  with  mass 
flow  at  throat  within  the  preset  number  of  iterations. 

Check  thermodynamic  tables. 

10.  ITSUB  WNC  in  TURN 

Unable  to  turn  the  flow  through  a  specified  turning  angle 
within  the  preset  number  of  iterations.  Usually  caused 
by  flow  going  subsonic. 

11.  ITSUB  WNC  in  OVEREX 

Unable  to  turn  the  flow  through  a  specified  turning  angle  to 
match  the  plume  boundary  pressure  within  the  preset  number 
of  iterations.  Usually  caused  by  the  flow  going  subsonic. 

12.  The  following  case  cannot  be  found  on  the  master  tape. 

The  program  is  unable  to  find  the  desired  gas  case  among  the 
cases  present  on  the  master  tape.  This  is  usually  caused  by 
the  gas  header  card  not  matching  any  of  the  header  cards 
which  appear  on  the  tape  or  the  wrong  tape  was  mounted. 

13.  ITSUB  WNC  in  HYPER 

Program  is  unable  to  find  a  velocity  which  will  give  the 
ambient  boundary  conditions  within  the  number  of  preset 
iterations.  Can  be  caused  by  trying  to  expand  the  flow  too 
far  or  bad  thermodynamic  tables. 

14.  Subsonic  Mach  number  encountered  in  TOFV 

The  characteristic  theory  utilizes  Mach  number  in  the 

definition  of  Mach  angle  (Vm^  -  1  )  and  is  limited  to 
supersonic  flow.  Possible  causes  for  this  message  are; 

•  Flow  went  subsonic 

•  Error  in  boundary  equations 

•  Error  in  other  input  data 

•  A  situation  is  encountered  which  the  code 
is  unable  to  handle. 

15.  Negative  velocity  encountered  in  TOFV 

Something  has  happened  during  the  solution  which  has 
resulted  in  a  negative  velocity  being  calculated.  Prob¬ 
able  causes  are: 
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•  Error  in  boundary  equations 

•  Error  in  gas  thermodynamic  data 

•  Mesh  problem  caused  by  too  large  a  step  in  a 
region  of  steep  gradients .  Try  taking  smaller 
steps . 

•  Program  limitation. 

16.  ITSUB  does  not  converge  in  PHYSOL 

Subroutine  PHYSOL  is  unable  to  determine  the  character¬ 
istic  intersection  with  the  known  data  surface  within  the 
preset  number  of  iterations.  This  is  usually  caused  by  too 
small  a  mesh  size  or  a  data  surface  that  has  been  input, 
which  is  not  a  true  normal. 

17.  Two  straight  lines  in  INRSCT  are  parallel 

Subroutine  INRSCT's  function  is  to  determine  the  intersection 
of  two  straight  lines.  If  two  lines  are  found  to  be  parallel 
this  message  is  printed  out.  Usually  caused  by  some  incon¬ 
sistency  in  the  input  data. 

18.  Slipline  computation  does  not  converge  in  SLPLIN 

The  program  is  unable  to  converge  on  the  slipline  points 
(i.e.,  match  flow  angle  and  pressure)  within  the  preset 
number  of  iterations.  Usually  caused  by  taking  too  large 
a  step. 

19.  Characteristic  lines  diverge,  last  P-M  point  set  free  molecular 

Subroutine  MOCSOL  is  unable  to  intersect  right  and  left 
running  lines  while  constructing  the  normal  around  a 
Prandtl -Meyer  expansion.  This  is  usually  caused  by  trying 
to  take  too  large  a  step  past  an  expansion  corner. 

20.  MOCSOL  would  not  converge 

MOCSOL  is  unable  to  find  the  intersection  of  two  character¬ 
istic  lines  within  the  preset  number  of  iterations. 

21.  A  problem  with  a  RRC  intersection  with  line  X  has  been  encountered 
The  line  will  be  recalculated. 

This  is  the  result  of  either  an  interior  solution  taking  too 
many  iterations  or  a  situation  where  the  program  is  unable 
to  intersect  the  right  running  characteristic  from  the  new 
point  to  the  known  data  surface.  The  program  will  back  up 
and  take  a  smaller  step  for  a  maximum  of  ten  iterations. 

If  the  same  problem  is  still  encountered  the  case  will  be 
terminated.  This  is  usually  caused  by  an  error  in  a  boundary 
equation,  a  startline  which  is  not  a  normal,  a  poor  point  spacing 
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22.  Particle  limiting  streamline  intersection  with  the  boundary 

This  message  occurs  whenever  a  particle  limiting  stream¬ 
line  intersects  a  boundary  (solid  or  free).  The  solution 
proceeds  while  assuming  all  mass  which  intersects  the 
boundary  passes  on  through. 

23.  Point  number  X  on  line  Y  has  been  deleted 

This  message  is  printed  whenever  a  point  is  thrown  out 
because  it  did  not  satisfy  the  mesh  control  criteria  or 
whenever  a  gas  and  particle  streamline  cross. 

24.  A  new  streamline  has  been  inserted  on  line  Y  between  points  X  and  Z. 

This  message  will  appear  each  time  a  point  is  added  on  a 
line  due  to  mesh  control  criteria  being  exceeded  between 
two  points . 

25.  Due  to  gas -particle  streamline  crossing  the  point  X  has  been  replaced 

This  message  occurs  for  two-phase  cases  whenever  a  gas  and 
particle  limiting  streamline  cross.  The  gas  streamline  is 
thrown  out. 

26.  Your  are  trying  to  throw  out  point  X,  the  point  is  a  wall,  limiting 
streamline  or  free  boundary  point.  You  probably  have  an  error 
in  your  input. 

This  error  message  is  usually  due  to  an  error  in  the  startline 
or  an  error  in  the  boundary  equations.  Check  your  input  data. 

3.4.3  Problems  Commonly  Encountered  and  Suggested  Fixes 

This  section  is  intended  to  aid  the  user  in  utilizing  the  program  and 
avoiding  some  common  problems.  Also  included  are  some  general  comments 
on  inputting  the  code. 

The  following  is  a  list  of  hints  to  the  user: 

•  The  numerical  scheme  which  the  program  utilizes  lends  itself  to 
evenly  spaced  points.  Therefore,  when  setting  up  a  startline  try 
to  insure  that  the  points  are  as  evenly  spaced  as  possible.  The 
only  exception  to  this  rule  is  in  the  vicinity  of  large  gradients  in 
flow  properties,  (e.g.,  Prandtl -Meyer  corners).  The  points  in 
this  region  should  be  closer  together  and  smaller  axial  steps 
should  be  taken. 
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•  In  the  region  immediately  downstream  of  a  Prandt  I -Meyer  expansion 
it  is  necessary  for  the  program  to  patch  together  a  characteristic 
mesh  with  the  streamline  normal  mesh  (Section  6.9,  Vol.I).  This 
mesh  construction  can  result  in  two  unique  problems.  First,  if  the 
first  normal  beyond  the  corner  is  too  far  downstream  of  expansion, 
it  is  possible  for  the  code  to  be  unable  to  intersect  characteristic 
lines.  This  normally  will  only  occur  for  high  altitude  cases.  To 
fix  this  take  a  small  step.  If  too  large  a  step  is  taken  at  lower 
altitudes,  streamlines  may  cross  which  can  result  in  a  subsonic 
Mach  number  or  negative  velocity  message.  To  correct,  take 
smaller  steps.  On  the  other  hand,  if  the  first  normal  downstream 
of  the  corner  is  too  close  to  the  lip  the  points  in  the  fan  may  be 
too  close  together.  This  may  cause  problems  with  characteristic 
line  intersections  with  previous  data  surfaces  and  result  in  exces¬ 
sive  iterations  or  no  convergence  of  points  in  this  region.  It  may 
also  result  in  the  necessity  to  take  too  small  a  step  in  order  to 
proceed  with  the  solution.  To  correct  this  problem,  a  slightly 
larger  step  must  be  taken  so  that  the  first  normal  is  further  down¬ 
stream  of  the  corner.  Below  are  sketches  of  normals  which  are 
too  close  and  too  far  from  expansion  corners. 


Normal  Too  Far  Downstream 
of  Expansion  Corner 


Corner 
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The  transonic  solution  requires  the  location  of  the  intersection  of 
the  startline  with  the  axis  (ZAX)  and  the  nozzle  wall  (THIW).  There 
is  an  option  in  the  code  to  let  the  program  calculate  a  ZAX  based 
on  the  input  THIW.  This  is  accomplished  by  not  inputting  a  value 
on  the  transonic  namelist.  The  value  of  ZAX  which  the  code  com¬ 
putes  will  result  in  a  near  normal  startline.  It  should  also  be  noted 
that  the  startline  must  be  supersonic  so  if  a  subsonic  Mach  number 
is  encountered  from  the  transonic  solution  the  startline  must  be 
moved  further  downstream  (Card  36). 

Since  the  program  uses  streamlines  and  normals  to  streamlines 
to  construct  the  mesh  it  is  always  assumed  that  each  data  surface 
is  a  true  normal.  If  a  startline  is  input  which  is  not  a  normal,  it 
is  possible  to  encounter  difficulties  in  getting  the  solution  started. 
Below  are  three  sketches  of  candidate  initial  data  surfaces.  Sketch  A 


Sketch  C  —  Normal  Not  Inclined  Enough 
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is  a  true  normal,  Sketch  B  is  inclined  too  much  and  Sketch  C  is 
not  inclined  enough.  In  the  case  of  the  data  surface  which  is 
inclined  too  much  the  code  will  probably  have  trouble  finding 
the  characteristic  line  intersections  with  this  surface  during  the 
next  line's  solution.  When  the  code  is  unable  to  obtain  an  inter¬ 
section,  the  new  data  surface  is  backed  up  until  a  solution  is 
reached  or  if  no  solution  is  reached  after  backing  up  ten  times 
the  case  is  terminated.  A  normal  which  is  not  inclined  enough 
will  result  in  normal  lines  crossing  as  shown  in  Sketch  C.  The 
solution  will  usually  have  no  trouble  in  obtaining  a  solution  for 
the  new  data  surface  although  several  lines  may  overlap.  To  fix 
both  of  these  cases,  regenerate  the  startline  so  the  normal  line 
is  a  true  normal. 

•  A  large  percentage  of  problems  encountered  are  due  to  errors  in 
the  boundary  equations.  These  errors  can  result  in  messages 
being  printed  out  such  as;  subsonic  Mach  number,  negative  velocity 
or  possible  systems  error  messages  due  to  bad  interpolation  factors. 
If  any  anomalies  are  encountered  while  the  code  is  solving  an  upper 
boundary  point,  the  following  are  some  of  the  errors  to  look  for; 

a.  A  discontinuity  in  boundary  equations  where  they  are 
supposed  to  match 

b.  The  boundary  equations  are  not  in  the  same  units  as  the 
startline 

c.  The  startline  does  not  fall  on  the  first  boundary  equation 

d.  For  two-phase  cases  the  input  throat  radius  is  not  con¬ 
sistent  with  the  throat  equation 

e.  There  is  an  error  in  the  equation  itself. 

•  Care  should  be  taken  in  selecting  the  particle  size  distribution  for 
any  particular  case.  If  the  particle  sizes  are  too  large  for  the 
motor  being  analyzed  then  the  lags  are  too  great,  thereby  compro¬ 
mising  the  results.  If  the  sizes  are  too  small  then  the  particles 
may  try  to  tuermally  and  translationally  equilibrate  with  the  gas 
which  may  result  in  numerical  problems.  A  discussion  on  how 
the  authors  determine  mean  sizes  and  distributions  is  contained 

in  Appendix  C  of  this  volume. 

•  If  the  user  is  only  interested  in  such  things  as  nozzle  wall  pressure 
and  initial  plume  expansion  angle  then  a  single  particle  size  having 
the  mean  size  for  the  motor  is  sufficient  for  good  results.  However, 
if  the  user  is  interested  in  two-phase  impingement,  then  a  good  dis¬ 
tribution  is  necessary  in  order  to  get  satisfactory  impingement  re¬ 
sults.  Appendix  C  contains  a  discussion  of  particle  distribution. 

•  There  are  some  specific  dos  and  don'ts  associated  with  inputting 
a  startline  with  cards.  The  following  hints  are  what  to  be  careful 
of  when  setting  up  a  case  where  the  startline  is  read  from  cards. 
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a.  Make  sure  that  the  number  of  gaseous  startline  points 
corresponds  to  the  value  input  on  Card  4  (ICON(3)). 

b.  The  gaseous  startline  points  should  be  input  starting 
from  the  nozzle  centerline  and  proceeding  to  the  upper 
boundary.  The  particle  properties  should  be  input  start¬ 
ing  with  the  first  point  nearest  the  upper  boundary  which 
has  particles  present  and  inputting  the  particle  data  down 
to  the  nozzle  centerline.  For  each  point  the  particles 
should  be  input  from  the  smallest  size  (particle  1)  up  to 
the  largest  size  (particle  6).  The  same  particle  number 
must  always  be  used  for  each  specific  size. 

c.  A  common  mistake  users  make  is  to  forget  to  input  the 
number  of  gas  points  (NSETS,  Card  23)  which  have  par¬ 
ticles  present.  This  only  applies  to  two-phase  cases. 

d.  Whenever  a  restart  is  used  it  is  necessary  that  the  last 
point  on  the  startline  (upper  boundary  point)  be  a  point  on 
the  first  boundary  equation.  The  first  boundary  equation 
must  also  be  a  type  1  or  2  boundary  (conic  or  polynomial). 
Therefore,  all  boundary  equations  prior  to  the  one  which 
applies  at  the  boundary  startline  point,  must  be  removed 
and  ICON  (4)  adjusted  accordingly.  Cases  which  are  trying 
to  be  restarted  in  the  plume  require  a  fictitious  boundary 
for  the  first  equation.  This  equation  consists  of  a  straight 
line  which  passes  through  the  boundary  point  and  has  the 
same  slope.  The  next  boundary  equation  should  be  the 
original  free  boundary  equation.  A  sketch  describing  this 
requirement  is  shown  below. 


Boundary  Point 

(RB.xB,  V 

M  =  TAN  (0  B ) 
B  =  Rb  -  M  XB 
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e.  The  code  presently  has  a  limit  of  50  startline  points.  If 
a  line  has  been  punched  which  has  more  than  50  points, 
omit  enough  points  to  obtain  50  maximum. 

f.  The  Mach  number  which  is  input  on  the  startline  cards 
must  be  within  the  thermodynamic  table  entries  for  two- 
phase  cases  which  utilize  equilibrium  tables  with  multiple 
enthalpy  and  entropy  tables.  This  is  normally  a  problem 
only  for  high  altitude  plume  restarts.  If  this  is  ever  en¬ 
countered  contact  the  authors  for  a  temporary  change  to 
the  program  so  that  gas  velocity  may  be  read  in  instead 
of  Mach  number. 

•  If  gas  thermodynamic  data  is  coming  from  tape  be  sure  to  set  ICON(l)  =  2 
(Card  4)  and  also  use  exactly  the  same  gas  header  card  (Card  8)  as  was 
used  by  the  TRAN72  program  to  generate  the  tape. 

•  For  gas  data  coming  from  cards  be  sure  that  the  units  of  the  gas  prop¬ 
erties  are  consistent  with  the  units  identifier  on  the  gas  header  card 
(Card  9). 

•  The  entropy  and  total  enthalpy  levels  of  any  startlines  input  into  the 
program  must  be  consistent  with  the  gas  thermodynamic  tables.  This 
is  generally  only  important  in  two-phase  cases.  If  the  startline  was 
punched  by  the  program  on  a  previous*  run  and  the  same  gas  thermo¬ 
dynamic  tables  are  used  then  the  gas  entropy  and  total  enthalpy  levels 
are  consistent.  However,  if  the  startline  is  generated  by  some  other 
code,  care  should  be  taken  to  enter  the  entropy  and  total  enthalpy  to 
obtain  the  correct  static  gas  properties  (P ,  p,  T).  For  ideal  gas  two- 
phase  cases  the  total  enthalpy  is  calculated  as  follows: 


ht  =  cp  tol 


where  C^  is  the  ideal  gas  C^  defined  as  C^  =  yR/(y-l)  and  T 


OL 


is 


the  local  total  temperature  including  any  two -phase  losses.  Tq  and 
are  the  combustion  chamber  total  temperature  and  pressure.  The 
static  pressure  is  calculated  via  the  following  relationship: 

P 


P  = 


rr  /t  \y/y~^ 

1  OL7  1 Q 

,s/R  *.z.y/y'1 


(i  + 


M  ) 


The  local  static  temperature  is  calculated  using  the  local  total  tempera¬ 
ture. 
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For  equilibrium  chemistry  two-phase  cases,  the  head  loss  due  to 
the  difference  in  total  temperature  between  local  and  chamber  con¬ 
ditions  is  accounted  for  by  the  change  in  entropy  level  between  the 
total  enthalpy  tables.  It  is  therefore  necessary  to  use  2  entropy  tables 
and  more  than  one  total  enthalpy  table  for  two-phase  equilibrium 
cases.  The  user  must  also  be  sure  that  the  gas  total  enthalpy  at 
any  point  in  the  plume  will  never  exceed  that  of  the  highest  total 
enthalpy  table  (AH  =  0)  or  be  less  than  the  lowest  total  enthalpy 
table  (AH^,  =  -  AH  max).  A  AH^,  of  -300  cal/gm  is  probably  the 

largest  heat  loss  that  need  be  used  in  the  modified  TRAN72  pro¬ 
gram  for  two-phase  cases. 

•  For  finite  rate  chemistry  cases  the  following  precautions  should  be 
taken 

1.  Be  sure  that  the  order  in  which  the  chemical  species  names 
appear  are  the  same  for  the  thermodynamic  data  tables  .  the 
startline  mole  fractions  and  the  catalytic  species. 

2.  Be  sure  that  the  temperatures  in  the  data  tables  are  the  same 
for  each  species  and  that  the  number  of  temperatures  are  the 
same . 

3.  Be  sure  that  the  enthalpies  and  entropies  are  referenced  to  the 
same  temperature  for  each  species. 

4.  The  program  is  set  up  to  "freeze"  the  chemistry  on  the  startline 
and  will  keep  the  chemistry  frozen  until  a  complete  normal  has 
been  computed.  It  is  recommended  that  the  startline  should  be 
as  near  to  a  normal  as  possible. 

5.  The  run  time  for  a  finite  rate  chemistry  case  is  much  longer 
than  for  an  equilibrium  case. 
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3.5  BRIEF  DESCRIPTION  OF  ROUTINES  IN  FUNCTIONAL  GROUPINGS 


The  following  subsection  contains  a  brief  description  of  the  individual 
routines  which  comprise  the  RAMP  program.  The  basic  flow  of  the  program 
is  presented  in  Table  3-8.  The  routines  are  grouped  and  presented  as  indi¬ 
cated  below; 

•  General  flow  properties  routines 

•  Shock  calculation  routines 

•  Input  routines 

•  Logic  control  routines 

•  Free  molecular  routines 

•  Output  routines 

•  Transonic  routines 

•  Startline  routines 

•  Boundary  and  problem  limits  routines 

•  Interpolation  and  iteration  routines 

•  Property  retrieval  routines 

•  Chemistry  routines 

•  Compatibility  equation  coefficient  routines 

•  Corner  point  routines 

•  Initialization  routines 

•  Performance  calculation  routines 

•  Characteristic  routines 

•  Miscellaneous  routines 

3.5.1  General  Flow  Properties  Routines 

Routine  Description 

EM01-  P  This  function  computes  the  local  Mach  number 

as  a  function  of  local  pressure  (static)  and  local 
entropy. 

:  MOr'V  This  function  computes  the  Mach  number  as  a 

function  of  local  velocity. 

3-  PBI  This  subroutine  interpolates  for  the  gas  and 

particle  properties  between  two  known  data 
point  s . 
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Routine 

POFEM 

POFH 

PPATPT 

RGMOFP 

RGVOFM 

RHOFEM 

TOFEM 

TOFENH 

TOFH 

TOF  V 

UOFEM 

UOF  V 
VOFEM 


Description 

This  function  computes  static  pressure  as  a 
function  of  Mach  number  and  entropy  and  total 
temperature  (ideal  gas  two-phase  only). 

This  routine  utilizes  the  tabulated  data  of  enthalpy 
and  specific  heat  as  functions  of  temperature  for 
each  species  of  a  finite  rate  chemistry  case  to  cal¬ 
culate  pressure,  as  a  function  of  enthalpy  for  a  real 
gas,  in  a  Prandtl-Meyer  expansion. 

This  routine  calculates  and  stores  gas  and  particle 
dependent  variables  as  a  function  of  the  independent 
flow  properties. 

This  subroutine  finds  Mach  number  as  a  function  of 
pressure,  O/F  ratio  (or  total  enthalpy)  and  entropy. 

The  difference  between  this  routine  and  EMOFP  is 
that  in  this  case  the  gas  properties  are  not  known 
prior  to  entry. 

This  function  computes  velocity  as  a  function  of  Mach 
number,  entropy  and  O/F  ratio  (or  total  enthalpy). 

The  difference  between  this  routine  and  VOFEM  is 
that  the  gas  properties  are  not  known  prior  to 
entry. 

This  function  computes  the  local  density  as  a  function 
of  Mach  number  and  entropy. 

This  function  computes  the  local  static  temperature 
as  a  function  of  Mach  number.  TOFEM  and  TOFV 
are  quite  similar;  the  difference  being  if  Mach  number 
or  velocity  is  the  known  quantity. 

This  function  calculates  the  temperature  as  a  function 
of  enthalpy  for  a  finite-rate  chemistry  case. 

This  function  calculates  the  temperature  as  a  function 
of  enthalpy  for  a  finite-rate  chemistry  case  during  a 
Prandtl-Meyer  expansion. 

This  function  computes  the  local  static  temperature 
as  a  function  of  velocity.  TOFV  and  TOFEM  are  quite 
similar;  the  difference  being  if  Mach  number  or  velocity 
is  the  known  variable. 


This  function  computes  the  local  Mach  angle  as  a 
function  of  local  Mach  number.  Prior  to  the  calcula¬ 
tion,  a  test  is  made  to  ensure  that  the  Mach  number 
is  greater  than  one. 

This  function  computes  the  local  Mach  angle  as  a 
function  of  local  velocity. 

This  function  computes  velocity  as  a  function  of  Mach 
number . 
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3.5.2  Shock  Calculation  Routines 


Routine 

DELTAF 

ENTROP 

ESHOCK 

NORSCK 

SLPLIN 

SOKINT 

SOKSOL 

TURN 

WEAK 

3.5.3  Input  Routines 

Routine 

GASRD 


Description 

This  function  computes  the  turning  angle  through  an 
oblique  shock  wave  knowing  the  shock  angle  and  the 
upstream  Mach  number. 

This  function  utilizes  the  oblique  shock  relations  to 
find  the  entropy  rise  across  a  shock  as  a  function  of 
the  shock  angle  and  the  upstream  Mach  number. 

This  subroutine  employs  an  iterative  solution  to  per¬ 
form  the  equilibrium  shock  calculations  for  a  real  or 
ideal  gas.  The  real  and  ideal  gas  calculations  are 
similar,  the  difference  being  that  an  ideal  gas  case 
converges  on  the  first  iteration. 

This  routine  uses  local  flow  properties  to  calculate 
properties  downstream  of  a  normal  shock  to  obtain 
pitot  pressure.  This  routine  is  used  only  for  finite- 
rate  chemistry,  real  gas  cases. 

This  subroutine  handles  the  calculation  of  the  points 
on  the  slipline.  Two  points  are  assigned  to  every 
slipline. 

This  subroutine  computes  the  flow  properties  at  the 
intersection  of  shock  waves  of  the  opposite  family. 

This  subroutine  provides  control  for  a  shock  point 
solution . 

This  subroutine  solves  for  a  shock  wave  which  has 
a  known  turning  angle  (6) .  A  condition  of  known 
turning  angle  exists  when  the  flow  is  turned  through 
a  compression  corner  on  a  solid  boundary.  Real  gas 
effects  are  considered  in  calculating  conditions  down¬ 
stream  of  the  shock. 

This  subroutine  determines  the  independent  variables, 
entropy  and  velocity,  SD,  VD,  downstream  of  a  weak 
oblique  shock.  The  gas  properties  upstream  of  the 
shock  are  known  prior  to  entry. 


Description 

This  subroutine  reads  in  the  gas  properties.  These 
properties  may  be  real  or  ideal  and  read  in  via  cards 
or  tape.  The  routine  also  converts  input  gas  proper¬ 
ties  from  MKS  units  to  English  (ENG)  units  if 
necessary. 

3-117 


LOCKHEED- HUNTSVILLE  RESEARCH  k  ENGINEERING  CENTER 


3.5.4 


Routine 

GASTAP 


1MPUT 


PARTIN 

PARTPH 


PLUMIN 


Description 

This  subroutine  reads  the  real  gas  properties  from 
the  thermochemical  data  tape  generated  by  the  modi¬ 
fied  TRAN72  computer  program  and  writes  this  same 
data  on  a  flowfield  tape  for  communication  with  other 
prog  rams . 

This  routine  reads  the  input  cards  or  tape  for  the 
chemistry  package.  The  reaction  rate  equations, 
rate  constants,  and  startline  species  concentrations 
are  read  in  and  the  appropriate  conversions,  if  any, 
are  performed.  Tables  of  enthalpy,  entropy  and 
specific  heats  for  each  species  are  also  input. 

This  subroutine  reads  in  gas  and  particle  property 
startline  data.  Data  is  read  in  from  cards  or  tape. 

This  subroutine  reads  and  sets  up  the  data  table  of 
particle  temperature  versus  enthalpy.  This  routine 
also  prints  out  the  particle  drag  tables  as  well  as  the 
temperature  versus  enthalpy  tables. 

This  subroutine  reads  in  the  input  data  (input  via  cards) 
necessary  to  perform  the  streamline -normal  solution. 
This  routine  provides  control  for  all  input  functions  by 
selectively  calling  pertinent  input  routines  and/or  the 
transonic  solution. 


Logic  Control  Routines 


Routine 

DRIVER 


MAIN 

MOCSOL 

PHASE 1 


Description 

This  subroutine  provides  the  highest  order  control 
for  program  execution.  The  initialization  and  logic 
subroutines  are  called  from  here.  Most  of  the  common 
storage  needed  in  the  remainder  of  the  program  is 
specified  in  DRIVER. 

This  subroutine  drives  the  program. 

This  subroutine  solves  the  characteristic  equations 
for  gas  only  flow  in  the  region  around  and  downstream 
of  an  expansion  corner. 

This  subroutine  performs  the  overall  control  for  the 
entire  flowfield  solution,  selectively  calling  those 
calculations  which  are  pertinent  to  the  particular 
mesh  construction  as  well  as  the  highest  level  logic 
routine  combining  point  or  limited  region  solutions 
into  an  entire  field  solution. 
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Routine 

PLUMIN 


STRNOR 


TRANS 


Description 

This  subroutine  reads  in  the  input  data  (input  via 
cards)  necessary  to  perform  the  streamline/normal 
solution.  This  routine  provides  control  for  all  input 
functions  by  selectively  calling  pertinent  input  routines 
and/or  the  transonic  solution. 

This  subroutine  provides  the  regional  control  for  the 
streamline/normal  solution.  It  has  a  lower  level  of 
logical  control  than  PHASE1  being  interested  only  in 
determining  the  location  and  flow  properties  of  a 
single  new  mesh  point. 

This  subroutine  provides  overall  control  for  initializing 
the  data  and  reading  the  namelist  data  for  the  Kliegel 
two -phase  transonic  solution  of  a  supersonic  gas  particle 
startline . 


3.5.5  Free  Molecular  Routines 


Routine 

AVER AG 

FREEMC 

STGMOD 

WTFLOF 


Description 

This  subroutine  determines  the  appropriate  flow  regime 
based  on  Knudsen  number  for  non-continuum  flow  and 
sets  the  appropriate  gas  total  conditions. 

This  subroutine  computes  flowfield  properties  in  the 
free  molecular  regime. 

This  subroutine  computes  the  gas  thermodynamic 
properties  in  the  transition  flow  regime. 

This  function  computes  the  area  normal  to  the  flow 
which  is  bounded  by  two  streamline  points. 


3.5.6  Output  Routines 


Routine 

ERRORS 


IDTAPE 


Description 

This  subroutine  contains  print  messages  for  various 
errors  which  may  occur.  This  is  an  open  ended  routine 
in  that  it  can  easily  be  extended  to  handle  more  print 
messages . 

This  subroutine  writes  the  gas  properties  which  were 
input  via  cards  on  the  flowfield  program  tape.  The 
format  used  to  write  them  on  tape  is  compatible  with 
that  used  for  a  real  gas. 
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Routine 

Description 

OUT 

This  subroutine  writes  the  calculated  data  for  data 
points  along  with  the  corresponding  title  and  headings 

OUTBIN 

This  subroutine  writes  the  calculated  normal  data  on 
the  binary  output  tape.  This  is  done  for  any  number 
of  data  points. 

PAGE 

This  subroutine  page  ejects  and  writes  the  header 
comments  and  page  number  on  each  page  of  the 
printout. 

PLMOUT 

This  subroutine  prints  the  data  read  by  PLUMIN. 

RITE 

This  subroutine  tells  the  program  user  (in  no  un¬ 
certain  terms)  that  he  has  made  a  "fatal"  error. 

The  next  executable  statement  is  a  STOP. 

3.5.7  Transonic  Routines 


Routine  Description 

ABCALC 

CCALC 

DCALC 

FCALC 

FIND  1 1 

JAMES 

LEGS 

NEWT  A  complete  description  of  each  of  these  routines  is 

ONED  contained  in  Ref.  7. 

PAR  TIL 

PCALC 

PROP 

STRMLN 

TRACE 

TRANS 

WDGI 


3.5.8  Startline  Routines 


Routine 

AOASTR 

LI  PIN 


Description 

This  function  finds  the  Mach  number  corresponding 
to  a  given  area  ratio  by  one -dimensional  theory. 

Real  gas  effects  are  considered  in  this  calculation. 

This  subroutine  calculates  information  for  the  starting 
line  points  when  the  simplified  straight  start  line  option 
is  used  (i.e.,  when  ICON(2)/2). 
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Routine 


MASCON 


SETHTG 


WOFA 


Description 

This  subroutine  calculates  the  Mach  number 
distribution  at  an  area  downstream  of  the  throat 
such  that  total  mass  flow  is  conserved.  Mass 
flow,  calculated  at  the  throat,  is  used  as  the 
constant  for  comparison. 

This  subroutine  computes  the  gas  total  enthalpy 
for  a  case  when  finite-rate  chemistry  is  being 
used  and  the  startline  is  to  be  generated  by  the 
program  for  gaseous  flows  only. 

This  subroutine  computes  the  weight  flow  per  unit 
area  as  a  function  of  Mach  number.  This  calcu¬ 
lation  is  only  used  in  function  AOASTR. 


3.5.9  Boundary  and  Problem  Limit  Routines 


Routine 


Description 


BOUND 

FNEWTN 

ITERM 

LAGRNG 

LIMITS 

PRFRBD 


This  subroutine  finds  the  radial  coordinate  and 
flow  angle  (radians)  for  a  given  axial  coordinate 
on  an  upper  or  lower  solid  boundary. 

This  function  solves  for  the  Newtonian  impact 
pressure  along  the  plume  boundary.  The  calcula¬ 
tion  is  applicable  for  all  free  stream  velocities 
including  quiescent  conditions  (i.e.,  M^  =  0). 

This  function  tests  each  normal  lower  wall  point 
to  determine  if  it  is  within  the  predefined  problem 
limits.  If  the  point  falls  outside  the  limits,  the 
case  is  terminated. 

This  subroutine  determines  the  radial  location 
and  flow  angle  for  solid  boundaries  which  are 
input  as  tables  of  R.X  and  flow  angle. 

This  subroutine  tests  the  new  boundary  point  to 
determine  if  it  is  within  the  limits  of  the  current 
boundary  equation. 

This  subroutine  calculates  the  flow  properties  at 
the  intersection  of  a  particle  limiting  streamline 
and  a  plume  boundary. 
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3.5.10  Interpolation  and  Iteration  Routines 


Routine 

ALGINT 

DRAGCP 

DRAGMR 

GAPPBI 

ITSUB 

SITER 

TEMTAB 

TKEY 

3.5.11  Property 
Routine 
IDMPFP 
IDMTAB 
IDMXSI 


Description 

This  routine  does  a  log  interpolation  between  two 
values  of  a  variable. 

This  routine  determines  the  drag  coefficient 
F  (Cn/Cn  )  as  a  function  of  Reynolds  number. 

This  subroutine  determines  the  local  drag  coeffi¬ 
cient  (C_VCn  )  as  a  function  of  particle 

U  ^Stokes 

Reynolds  number  and  particle  Mach  number. 

This  subroutine  interpolates  for  the  gas  and 
particle  properties  between  two  known  data 
points. 

This  subroutine  controls  the  iterative  solution  of 
any  set  of  equations  which  can  ultimately  be  ex¬ 
pressed  as  a  function  of  one  variable;  it  can  also 
be  used  to  control  an  integration  loop. 

This  subroutine  computes  entropy  as  a  function  of 
pressure,  total  enthalpy  and  velocity. 

This  subroutine  will  perform  a  table  lookup  for 
particle  temperature  as  a  function  of  enthalpy  or 
for  particle  enthalpy  as  a  function  of  temperature. 

This  routine  determines  the  proper  index  to  be 
used  in  the  enthalpy  and  specific  heat  tables  and 
calculates  interpolation  factors. 


Retrieval  Routines 


Description 

This  function  computes  the  particle  storage  location 
within  the  PFPARY  array. 

This  function  computes  the  gas  property  storage 
location  within  the  TABB  array. 

This  function  computes  the  gas  interpolation 
parameter  storage  location  within  the  XSIDIM 
array. 
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Routine 


RWU 


SPCTX 


Description 


This  function  computes  the  particle  property  data 
storage  location  and  retrieves  data  from  the  PFPARY 
array. 

This  routine  is  a  MSFC  Univac  1108  system  routine 
used  to  read  and  write  from  FASTRAN  files. 

This  routine  controls  the  input  and  output  from  a 
FASTRAN  file  of  the  chemical  species  in  a  finite- 
rate  chemistry  case. 

This  function  computes  the  thermodynamic  data 
storage  location  and  retrieves  data  from  the  TABB 
array. 

This  function  computes  the  storage  location  for  the 
nonlinear  interpolation  weighting  functions  required 
for  thermodynamic  property  look-up  and  retrieves 
data  from  XSIDIM, 


3.5.12  Chemistry  Routines 


Routine 


CHEM 


FABLE 


Description 


THERMO 


THERM  1 


This  routine  evaluates  the  chemical  reaction -rate 
equations  to  determine  the  new  chemical  species 
concentrations . 

This  subroutine  utilizes  real  or  ideal  gas  information 
obtained  from  a  master  tape  or  input  cards  to  calcu¬ 
late  properties  locally  in  the  flow.  The  maximum 
size  of  the  array  used  by  FABLE  is  limited  to  eight 
gas  properties  (V.  R,  y ,  Tq,  P0>/L  Pr,  C^)  at  13  velo¬ 
city  "cuts"  for  each  of  two  entropy  cuts  and  10  O/F 
or  total  enthalpy  cuts. 

This  subroutine  utilizes  real  or  ideal  gas  information 
obtained  from  the  flowfield  tape  (or  tables)  and  a  local 
O/F  ratio  (or  total  enthalpy)  to  call  subroutine  FABLE 
to  calculate  thermodynamic  gas  properties  locally  in 
the  flow. 

This  routine  determines  the  gas  thermodynamic 
properties  for  a  finite-rate  chemistry  case. 
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3.5.13  Compatibility  Equation  Coefficient  Routines 


Routine 

COEFEQ 

COEFF3 

NEWENT 

ROTERM 

3.5.14  Corner 
Routine 
EXPCOR 
HYPER 

OVEREX 

PRANDT 


Description 


This  subroutine  calculates  the  coefficients  Cl  and  C1J 
for  use  in  the  gas -particle  system  compatibility  equa¬ 
tion  along  the  gas  Mach  lines.  Cl  is  the  gas  total 
enthalpy  term  and  C1J  is  the  particle  contribution  to 
the  equation. 

This  subroutine  calculates  the  new  particle  properties 
at  the  point  under  consideration,  and  the  intersection 
of  the  particle  streamlines  through  this  point  with  the 
J-line. 

This  subroutine  calculates  the  change  in  entropy  and 
gas  total  enthalpy  along  a  gas  streamline  for  gas 
particle  flows. 

This  function  computes  the  geometrical  factor,  Fj,  , 

used  in  the  axisymmetric  term  of  the  compatibility 
equation  and  as  an  interpolation  parameter. 


Point  Solution  Routines 


Description 

This  subroutine  calculates  the  flow  properties  of 
those  field  points  near  an  expansion  corner. 

This  subroutine  calculates  the  balanced  pressure  at 
a  corner  point  (i.e.,  at  the  intersection  of  a  solid 
boundary  and  the  pressure  boundary).  The  pressure 
balance  is  determined  for  either  the  overexpanded 
or  under  expanded  case  with  impact  or  ambient  free- 
stream  pressure. 

This  subroutine  solves  for  the  shock  angle  at  the 
nozzle  lip  when  the  flow  is  over  expanded.  Pro¬ 
visions  are  made  to  calculate  the  shock  angle  for 
an  upper  or  lower  lip  point.  Real  gas  effects  are 
considered  in  calculating  flow  properties  downstream 
of  the  shock. 

This  subroutine  computes  the  Prandtl-Meyer  expansion 
angle  for  a  given  boundary  angle  and  divides  this  angle 
into  a  series  of  expansion  "rays"  (unless  the  number 
of  rays  has  been  specified  in  the  input).  The  flow 
properties  at  each  angular  increment  are  set  and 
stored  in  the  PHO  array. 
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Routine 


Description 


THETPM  This  subroutine  performs  a  numerical  integration  to 

calculate  properties  through  a  Prandtl-Meyer  expansion. 
Either  the  case  of  known  final  velocity  or  known  final 
expansion  angle  may  be  handled. 


3.5.15  Initialization  Routines 


Routine 


Description 


BLKDAT 

INITP 


SETHTG 


This  routine  initializes  the  Kliegel  (Ref. 7)  and  Crowe 
(Ref.  11)  gas -particle  drag  coefficients  which  are  used 
by  the  code. 

This  subroutine  initializes  the  values  of  various  con¬ 
trol  parameters,  thereby  providing  for  proper  operation 
of  the  program.  These  initial  values  include: 

1.  The  counter  for  the  upper  and  lower  boundary 
equations , 

2.  The  counter  for  the  first  characteristic  line. 

3.  The  initial  number  of  degrees  per  Prandtl -Meyer 
ray, 

4.  Convergence  criteria,  and 

5.  Maximum  number  of  iterations. 

This  subroutine  computes  the  gas  total  enthalpy  for 
a  case  when  finite-rate  chemistry  is  being  used  and 
the  startline  is  to  be  generated  by  the  program  for 
gaseous  flows  only. 


3.5.16  Performance  Calculation  Routines 


R  outine 


Description 


INTEGR  This  subroutine  calculates  the  incremental  force  and 

energy  between  two  adjacent  points  in  the  flow  field. 

MASSCK  This  subroutine  keeps  a  running  check  on  the  mass 

flow.  Mass  flow  at  the  starting  line  is  calculated 
and  compared  with  that  crossing  each  normal  line 
downstream. 
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THRUST 


This  subroutine  computes  the  vacuum  thrust  produced 
by  a  two-dimensional  or  axisymmetric  nozzle.  Addition 
of  the  thrust  at  the  throat  and  the  integrated  pressure 
along  the  nozzle  wall  yields  the  final  thrust. 


3.5.17  Characteristic  Routines 


Routine 


Description 


BOUNDA 

CARCTR 


VtOCSOL 


PHYSOL 


This  subroutine  finds  the  radial  and  axial  coordinates 
as  well  as  flow  angle  at  the  intersection  of  a  straight 
line  with  a  solid  boundary. 

This  subroutine  calculates  velocity  along  either  a  I 
or  II  characteristic  line  with  a  known  or  assumed 
flow  angle. 

This  subroutine  solves  the  characteristic  equations 
for  gas  only  flow  in  the  region  around  and  downstream 
of  an  expansion  corner. 

This  subroutine  computes  the  intersection  of  physical 
characteristics  with  a  "normal"  data  line. 


3.5.18  Miscellaneous  Routines 


Routine 


Description 


CHECK 

DOT  PRD 
INRSCT 
KIKOFF 
MAXTIM 


This  subroutine  determines  whether  or  not  to  add  or 
delete  streamline  points  based  on  user  input  mesh 
controls . 

This  function  calculates  the  dot  product  of  two  vectors 
and  returns  the  result  to  the  calling  routine. 

This  subroutine  finds  the  intersection  of  two  straight 
line  s . 

This  subroutine  terminates  the  use  if  an  error  in  the 
calculation  is  encountered. 

This  Subroutine  is  a  Univac  1108  machine  language 
routine  that  checks  a  user  input  time  (seconds)  against 
the  remaining  CPU  time  before  run  termination  and 
returns  to  a  specified  label  in  the  calling  routine. 
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Routine 


SLDP 

VEMAG 


Description 

This  subroutine  finds  the  solutions  to  a  set  of  N 
simultaneous  linear  equations. 

This  function  determines  the  magnitude  of  a  vector 
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3.6  DETAILED  DISCUSSION  OF  THE  INDIVIDUAL  ROUTINES 


This  subsection  contains  a  detailed  description 
of  each  routine  used  in  the  program. 

Described  are; 

•  Function  (if  applicable)  of  each 
routine 

•  Calling  sequence 

•  Common  blocks  and  other  routines 
used,  and 

•  The  method  used  in  performing  the 
routine  functions 

For  your  convenience,  the  routines  are  organized 
alphabetically . 


NOTE:  The  following  routines  are  not  included  in  this  section  as  they  com¬ 
prise  the  two-phase  transonic  solution  of  Kliegel  which  is  incor¬ 
porated  in  the  RAMP  code.  A  complete  description  of  each  of  these 
routines  is  contained  in  Ref.  7. 


ABC ALC 
CCALC 
FC  ALC 
FIND  11 


JAMES 
LEGS 
NEWT 
ON  ED 


PAR  TIL 

PCALC 

PROP 

TRACE 

WDGI 
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FUNCTION  NAME:  ALGINT 
DESCRIPTION 

This  routine  does  a  log  interpolation  between  two  values  of  a  variable. 

CALLING  SEQUENCE 

=  ALGINT  (H,  Rl,  R2) 

where  H  is  the  interpolation  factor  and  Rl  and  R2  are  the  values  of  the 
variables  between  which  the  interpolation  is  being  made. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  -  None 
UTILITY  -  None 

METHOD  OF  SOLUTION 

A  =  In  (Rl)  +  H  *  (£n  (R2)  -  fn  Rl) 

ALGINT  =  eA 
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1  UNCTION  NAME:  AOASTR 


1)  ESCR1  PTiON 

This  function  finds  the  Mach  number  corresponding  to  a  given  area 
ratio  by  one-dimensional  theory.  Real  gas  effects  are  considered  in  this 
calculation . 

CALLING  SEQUENCE 

EM  =  AOASTR  (OF,  S,  AOA,  K  1 W 1 ,  K2W2) 

wnere  EM  is  the  Mach  number  which  exists,  one- dimensionally ,  at  an  area 
ratio  of  AOA,  an  entropy  S,  and  at  an  O/F  ratio  or  total  enthalpy,  OF. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 

COMMON  -None 

ERRORS 

1TSUB 

RGVOFM 

THERMO 

WOFA 

METHOD  OF  SOLUTION 

The  weight  flow  per  unit  area  at  Mach  one  is  evaluated.  An  initial 
guess  for  the  desired  Mach  number  is  made  and  ITSUB  is  initialized.  An 
iterative  solution  of  the  equation  FOFEM  =  AOA  -  WOFA  l/WOFA(EM) , 
driving  FOFEM  to  zero,  is  performed  with  the  aid  of  ITSUB. 
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SUBROUTINE  NAME:  AVERAG 
DESCRIPTION 

This  subroutine  determines  the  appropriate  flow  regime  based  on 
Knudsen  number  for  non-continuum  flow  and  sets  the  appropriate  gas  total 
conditions . 

CALLING  SEQUENCE 

CALL  AVERAG  (IS,  J,N,K,  ITYPE) 

where  IS  is  the  base  point  streamline  number  on  the  J  data  surface,  N  is 
the  streamline  point  on  the  K  line  for  which  the  flow  regime  is  to  be  deter¬ 
mined  and  ITYPE  is  a  flag  which  is  returned  to  the  calling  routine  to  indicate 
the  flow  regime. 


ITYPE  Flow  Regime 

1  Continuum 

2  Vibrationally  frozen 

3  Rotationally  frozen 

4  Translationally  frozen 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/TOTAL/  TOFV 

common/gsv/  rhofem 

COMMON/GAPPA/  STGMOD 

COMMON/GASCON/ 

COMMON/CONTRL/ 

COMMON/FREE/ 

COMMON /FSTAG/ 

COMMON/DATAR/ 

COMMON /MOL/ 

COMMON/TEMPER/ 

THERMO 

EMOFV 
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METHOD  OF  SOLUTION 

The  average  Knudsen  number  between  the  old  streamline  base  point 
is  calculated  via  the  following  equation; 

Kn  =  .788539  7  (M2/R£)  |MT  j  -  fnT^/dS 

where  the  (— )  properties  are  averaged  between  the  old  (1)  and  new  (2) 
streamline  points.  The  flow  regime  is  determined  by  checking  the  calcula¬ 
ted  Knudsen  number  against  the  input  Knudsen  number  criteria  for  vibra¬ 
tional,  rotational  or  translational  freezing.  Once  the  flow  regime  has  been 
determined  the  appropriate  specific  heat  ratio  (gamma)  and  total  conditions 
are  calculated. 
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SUBROUTINE  NAME:  BLKDAT 


DESCRIPTION 

This  routine  initializes  the  Kliegel  (Ref.  7)  and  Crowe  (Re 
particle  drag  coefficients  which  are  used  by  the  code. 

CALLING  SEQUENCE 
None 

UTT LIT Y  ROUTINES  AND  COMMON  REFERENCES 
COMMON/DRAGCF/ 

COMMON/DRUG/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 
Not  applicable 
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SmumUTlNE  NAME:  BOUND 

DESCRIPTION 

This  subroutine  finds  the  radial  coordinate  and  flow  angle  (radians)  for 
a  given  axial  coordinate  on  an  upper  or  lower  solid  boundary. 

CALLING  SEQUENCE 

CALL  BOUND  (R,X,  THETA,  ITYPE.  K 1 W I ,  K  1W2) 

where  R  is  the  radial  coordinate,  X  is  the  known  axial  coordinate,  THETA 
is  the  wall  angle  and  ITYPE  indicates  whether  upper  or  lower  boundary 
equations  are  to  be  used. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/DATAR/ 

COMMON/WAFT/ 

LAGRNG 


METHOD  OF  SOLUTION 

The  common  block  region  DATAR  contains  boundary  equations  or  wall 
coordinates  necessary  to  evaluate  R  and  THETA.  The  two  types  of  equations 
used  are: 


r 


r 


a[V 

4 

ax 


b  +  cx  +  dx 
3 

+  bx  +  cx 


2 

2 


+ 

+  dx  +  e 


Conic  Type  1 
Polynomial  Type  2 


When  the  upper  or  lower  boundary  is  described  by  discrete  points  (R,X,  THETA) 
subroutine  LAGRNG  is  called  to  interpolate  for  the  R  and  THETA  of  the  point. 
The  input  fixed  point  variable  ITYPE  has  a  one  or  a  two  in  the  units  position 
which  selects  the  upper  (2)  or  lower  (I)  coefficients  or  points  and  control  infor¬ 
mation.  IEQNOW  contains  the  number  of  the  equation  to  be  used. 
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SUBROUTINE  NAME:  BOUNDA 


DESCRIPTION 

This  subroutine  finds  the  radial  and  axial  coordinates  as  well  as  flow 
angle  at  the  intersection  of  a  straight  line  with  a  solid  boundary. 

CALLING  SEQUENCE 

CALL  BOUNDA  (PL,  PM,  RB  ,  XB  ,  AB ,  ITYPE,  K  1 W 1 ,  K  1 W2) 

where 

PL(8)  is  the  storage  array  for  the  known  boundary  point 

PM(8)  is  the  storage  array  for  the  known  field  point 
where  the  straight  line  passes  through 

RB  and  XB  are  the  radial  and  axial  coordinates  of  the  point 
of  intersection 

AB  is  the  angle  of  the  solid  boundary  at  the  point  of 
intersection 

ITYPE  denotes  the  type  of  combination  being  considered 


ITYPE 

Type  of  Straight  Line 

Boundary 

51 

normal 

lower 

52 

normal 

upper 

61 

II -char act  eristic 

lower 

62 

I -characteristic 

upper 

121 

right -running  shockwave 

lower 

122 

left -running  shockwave 

upper 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTRL/ 

COMMON/DATAR/ 

COMMON/TEMPOl/ 

BOUND 

ERRORS 

INRSCT 

KIKOFF 

CONTRL 

TEMPOl 
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METHOD  OF  SOLUTION 

Intersection  of  the  straight  line  from  PM  and  the  tangent  from  PL  is 
found  first  with  the  aid  of  subroutine  INRSCT.  The  radial  coordinate  and 
the  flow  angle  on  the  boundary  at  this  given  axial  coordinate  of  the  inter¬ 
section  just  found  can  be  calculated  from  the  solid  boundary  equation  by 
using  subroutine  BOUND.  Then,  if  the  boundary  is  not  a  straight  line,  the 
newly  found  point  on  the  boundary  is  used  to  repeat  the  same  process  until 
the  exact  intersection  is  found. 
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SUBROUTINE  NAME:  CARCTR 
DESCRIPTI  ON 

This  subroutine  calculates  velocity  along  either  a  I  or  II  characteristic 
line  with  a  known  or  assumed  flow  angle. 

CALLING  SEQUENCE 

CALL  CARCTR  (LOORUP,  P3I,  KIWI,  K1W2) 

where 

LOORUP  =  1  for  a  I  characteristic 
=  2  for  a  II  characteristic 
P3I(8)  is  the  storage  array  for  the  point 
under  consideration 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTROL/ 

COMMON/CRITER/ 

COMMON /DATAR/ 

COMMON /GASCON/ 

COMMON/SLIPPT/ 

COMMON/PARTP2/ 

COMMON  /GAPPA/ 

ROTERM 
UOF  V 
PPATPT 
THERMO 
COE  F  EQ 

METHOD  OF  SOLUTION 

For  the  first  pass  of  the  solution  the  flow  properties,  except  the  flow 
angle,  at  the  point  under  consideration  are  assumed  to  be  identical  to  those 
of  the  upstream  point  on  the  same  streamline.  Equation  (3.3)  is  then  used 
to  calculate  the  "updated"  velocity.  Other  properties  are  calculated  accord¬ 
ing  to  the  new  velocity.  This  routine  is  used  in  the  iteration  for  a  shock 
point  solution. 
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SUBROUTINE  NAME;  CHECK 
DESCRIPTION 

This  subroutine  determines  whether  or  not  to  add  or  delete  streamline 
points  based  on  user  input  mesh  controls. 

CALLING  SEQUENCE 

CALL  CHECK  (I,K,IS,  J,  IGO,  ITOTK,  ITOT  J) 

where  (I,K)  and  (IS,  J)  are  the  two  points  the  program  is  checking  the  mesh 
control  constraints  against.  IGO  =  -1  for  checking  deletion  and  greater  than 
zero  for  inserting  points.  ITOTK  and  ITOTJ  are  the  total  number  of  points 
on  the  J  and  K  normals. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/ POINTC/ 

COMMON/DATAR/ 

COMMON /GLOBAL/ 

COMM  ON/PAR  TP  1/ 

COMMON/PARTP2/ 

COMMON/STEPC/ 

COMMON/CONTRL/ 

COMMON /GAPPA/ 

COMMON/FSTAG/ 

COMMON/DROP/ 

C  OMMON /CHEMCN  / 


COMMON  /  CHEMXX  / 

SPCTX 

PFP 

IDMPFP 

GAPPBI 


METHOD  OF  SOLUTION 

See  Section  3.5.1  for  a  description  of  mesh  control  parameters. 
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SI  I U  UOU'l'l  N  E  NAME:  C1IEM 
DESCRIPTION 

This  routine  evaluates  the  chemical  r  eaction  -  rate  equations  to  deter 
mine  the  new  chemical  species  concentrations. 

CALLING  SEQUENCE 


CALL  CHEM  (DXX,  RHO,  U,  T) 

where  DXX  is  the  distance  along  the  gas  streamline  from  the  base  point  to 
the  new  point 

RHO  =  gas  density 
U  =  gas  velocity 
T  =  gas  temperature 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /CRITER/ 

COMMON/RUE/ 

COMMON/CONTRL/ 

COMMON  /  CHEMCN/ 

COMMON /GASDAT/ 

COMM  ON  /CHEMXX/ 

COMMON  /CHEMYY  / 

TKEY 

RWU 

SLDP 

METHOD  OK  SOLUTION 

The  reaction  rate  equations  for  the  various  chemical  reactions  are 
solved  simultaneously  using  an  implicit  finite  differencing  scheme. 
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SUBROUTINE  NAME:  COEFEQ 
DESCRIPTION 

This  subroutine  calculates  the  coefficients  Cl  and  ClJ  for' use  in  the 
gas-particle  system  compatibility  equation  along  the  gas  Mach  lines.  Cl 
is  the  gas  total  enthalpy  term  and  ClJ  is  the  particle  contribution  to  the 
equation. 

CALLING  SEQUENCE 

CALL  COEFEQ  (M,  IPA,  IPB,  IPC) 

where  M  is  equal  to  1  tor  limiting  streamlines,  IPA  is  the  base  point  number 
for  the  RRC.IPB  is  the  base  point  number  of  the  LRC  and  IPC  is  the  new  point 
number. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /SLIPPT  / 

COMMON/DATAR/ 

COMMON  /GAPPA/ 

COMMON/ ONTSPT/ 

COMMON /AVPROP/ 

COMMON/CONTRL/ 

COMMON /CHEMXX/ 

COMMON  /  CHEMCN/ 

UTILITY  -  None 


METHOD  OF  SOLUTION 

The  following  finite  difference  relations  are  used  to  solve  for  the 
coefficients: 


cosa 


Cl 


1. 2 


li.2 


sina  i , 2  q  i , 2 
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and 


c:  1  J 


1,  2 


NP 


X] p*  - 2  aJi  ■ 2 

j=l 


i(vlt2-vii2)  COSpl,2  +  (UII2-Ui,2)  sinPl,2 


BJ, 


UL. 


ql  2 smOj  2 


Ax 


LL 


Pl,2ql>2C°Spl,2 


For  a  detailed  description  of  the  calculation  procedure,  see  Volume  I, 
Section  3.3. 
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SUBROUTINE  NAME:  COEFF3 


DESCRIPTION 

This  subroutine  calculates  the  new  particle  properties  at  the  point 
under  consideration,  and  the  intersection  of  the  particle  streamlines  through 
this  point  with  the  J-line. 

CALLING  SEQUENCE 

CALL  COEFF3  (KP,  M,  VERT,  IH,  KH,  18,  K8, 19,  K9, 
I7,K7,ITYPE,  I  PA,  IPB ,  I  PC,  P3,  PG) 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CONTRL/ 

COMMON/DATAR/ 

COMMON /TOTAL/ 

COMMON/PARTP1/ 

COMMON/GAPPA/ 

COMMQN/ONTSPT/ 

COMMON/POINTC/ 

C  OMMON  /  PAR  STU/ 

COMMON/CRITER/ 


COMMON/PSEC/ 

COMMON/PSLD/ 

COMMON/XXSH/ 

COMMON/GASCON/ 

COMMON /CPMUK/ 

COMMON/S  LI  PPT/ 

IDMPFP 

PFP 

INRSCT 

PPATPT 

GAPPBI 


METHOD  OF  SOLUTION 

For  a  detailed  description  of  the  calculation  procedure,  see  Volume  I, 
Section  6.1. 
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FUNCTION  NAME:  DELTAF 


DESCRIPTION 

This  function  computes  the  turning  angle  through  an  oblique  shock 
wave  knowing  the  shock  angle  and  the  upstream  Mach  number. 

CALLING  SEQUENCE 

DELTA  =  DELTAF  (EPS,  EM,  K  1 W 1 ,  K  1 W2) 

where  DELTA,  the  turning  angle  is  found  from  the  shock  angle,  EPS,  and 
the  upstream  Mach  number,  EM.  NOTEi  The  appropriate  values  of  gas 
properties  must  be  stored  in  common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/GASCON/ 

UTILITY  -  None 


METHOD  OF  SOLUTION 

The  oblique  shock  relationships  are  used  to  determine  the  turning 
angle  through  an  oblique  shock  wave. 


<5 


-1  I.  /  1 

e  -  tan  J tan  el — ? 


M  sin  e 
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FUNCTION  NAME;  DOTPRD 
DESCRIPTION 

This  function  calculates  the  dot  product  of  two  vectors  and  returns 
the  result  to  the  calling  routine. 

CALLING  SEQUENCE 

=  DOTPRD(Vl,  V2) 

where  VI  and  V2  are  any  two  vectors. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
None 

METHOD  OF  SOLUTION 

Vector  VI  is  dotted  into  vector  V2,  The  resultant  is  a  scalar  returned 
as  DOTPRD. 
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FUNCTION  NAME:  DRAGCP 
DESCRIPTION 

This  routine  determines  the  drag  coefficient  F  (Cj-j/Cq  )  as  a 

St  ok  g  s 

function  of  Reynolds  number. 

CALLING  SEQUENCE 

=  DRAGCP  (RE) 


where 

RE  is  the  particle  Reynolds  number. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /DRAGC  F/ 

UTILITY  -  None 


METHOD  OF  SOLUTION 

cd/cd0_,  is  tabulated  as  a  function  of  particle  Reynolds  number 
Stokes 

and  a  linear  interpolation  is  performed  based  on  Reynolds  number  to  obtain 
CD/CDStQkeg.  This  tabulation  is  that  of  Kliegel  (Ref.  7). 
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FUNCTION  NAME:  DRAGMR 


DESCRIPTION 

This  subroutine  determines  the  local  drag  coefficient  (Cn/C  ) 

U  Stokes 

as  a  function  of  particle  Reynolds  number  and  particle  Mach  number. 
CALLING  SEQUENCE 

=  DRAGMR  (EM,  RE) 


where 

EM  is  the  particle  Mach  number 
RE  is  the  particle  Reynolds  number. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/DRUG/ 

ALGINT 


METHOD  OF  SOLUTION 

C  /Cn  as  presented  by  Crowe  (Ref.  II)  is  tabulated  as  a  function 

U  Stokes 

of  particle  Reynolds  number  and  Mach  number.  A  logarithmic  interpolation 


is  performed  based  on  RE  and  EM  to  obtain  the  appropriate  value  of 


cd/cd 


Stokes 
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SUBROUTINE  NAME;  DRIVER 
DESCRIPTION 

DRIVER  provides  the  highest  order  control  for  program  execution. 
The  initialization  and  logic  subroutines  are  called  from  here.  Most  of  the 
common  storage  needed  in  the  remainder  of  the  program  is  specified  here. 

CALLING  SEQUENCE 

CALL  DRIVER  (K ,  K  1 W 1 ,  K  1 W2) 

where  K  is  a  control  constant  indicating  whether  or  not  errors  exist  in  the 
execution  of  the  program.  (K  =  1  for  a  detected  error,  K  =  0  for  no  errors. 
KIWI  and  K1WZ  are  flags  which  have  various  uses  in  the  code. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/AUX/ 

COMMON/TPEH/ 

COMMON/CON  TRL/ 

COMMON/WAFT/ 

COMMON/CRITER/ 

common/nsf  / 

COMMON /DRAGCF/ 

COMMON /XSICOM/ 

COMMON/CUTFO/ 

COMMON/GAPPA/ 

COMMON/DATAR/ 

COMMON /DISCOM/ 

COMMON/XXSH/ 

COMMON/GRINT/ 

COMMON/FREE/ 

COMMON/TFLAG/ 

COMMON/FORCE/ 

COMMON/TEMPER/ 

COMMON /GASCON/ 

COMMON/ONTSPT/ 

COMMON/HEAD/ 

COMMON/WRITPT/ 

COMMON/SIGNAL/ 

COMMON /PS  LD/ 

COMMON /INPUT/ 

COM  MON/'  CPMUK/ 

COMMON /MASSC/ 

COMMON/MOL/ 

COMMON /STEPC/ 

common/fad/ 

COMMON/TAPRIT/ 

COMMON/WT/ 

COMM  ON  /  PARTPl/ 

INITP 

COM  MON /PAR  TP  2/ 

PLUMIN 

COMMON /GASDAT/ 

PHASE  1 

METHOD  OF  SOLUTION:  Not  applicable 

. 
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FUNCTION  NAME:  EMOFP 
DESCRIPTION 

This  routine  computes  the  local  Mach  number  as  a  function  of  local 
pressure  (static)  and  local  entropy. 

CALLING  SEQUENCE 


EM  =  EMOFP  (P.S.K1W1.K1W2) 

where  EM  is  the  resultant  Mach  number  found  from  the  pressure,  P,  and 
entropy,  S.  NOTE:  The  appropriate  values  of  the  gas  properties  must  be 
stored  in  common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/TEMPER/ 

COMMON  /GASCON/ 

UTILITY  -  None 


METHOD  OF  SOLUTION 

Thermally  perfect  gas  relationships  are  used  to  find  the  Mach  number. 


y/y-1 


Y  -  l/V 
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FUNCTION  NAME:  EMOFV 


DESCRIPTION 

This  routine  finds  Mach  number  as  a  function  of  local  velocity. 

CALLING  SEQUENCE 

EM  =  EMOFV  (V,  K  1W1,  K  1W2) 

where  EM  is  the  local  Mach  number  found  as  a  function  of  the  local  velocity,  V. 
N  OT E:  The  appr opropriate  values  of  the  gas  properties  must  be  stored  in 
common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /GASCON/ 

TOF  V 

METHOD  OF  SOLUTION 

Thermally  perfect  gas  relationships  are  used  to  find  the  Mach  number. 

M  =  Vfr  -  *)  (ur) 
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FUNCTION  NAME;  ENTROP 


DESCRIPTION 

This  routine  utilizes  the  oblique  shock  relations  to  find  the  entropy 
rise  across  a  shock  as  a  function  of  the  shock  angle  and  the  upstream 
Mach  number. 


CALLING  SEQUENCE 

SD  =  ENTROP  (EPS,  EMU,  KIWI,  K1W2) 

where  SD  is  the  entropy  rise  across  the  shock  and  is  a  function  of  the  shock 
angle,  EPS,  and  the  upstream  Mach  number,  EMU.  NOTE:  The  appropriate 
values  of  the  gas  properties  must  be  stored  in  common  upon  entry  to  this 
routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /GASCON/ 

UTILITY  -  None 


METHOD  OF  SOLUTION 


The  oblique 


shock  relations  are  employed  to  find  the  entropy  rise 


across  the  shock. 


ds 


R 

Y-l 


tn 


(2-yM 


.  2 
sin  e 


y+i 


--hLzJU 


+  y  in 


tan  (6  -  6) 
tane 
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SUBROUTINE  NAME:  ERRORS 


DESCRIPTION 


ERRORS  contains  print  messages  for  various  errors  which  may  occur. 
This  is  an  open  ended  routine  in  that  it  can  easily  be  extended  to  handle  more 
print  messages. 


CALLING  SEQUENCE 


CALL  ERRORS  (I,K1W1,K1W2) 


where  I  selects  the  message  to  be  printed. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CON  TRL/ 
UTILITY  -  None 


METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME;  ESHOCK 
DESCRIPTION 

This  subroutine  employs  an  iterative  solution  to  perform  the  equili¬ 
brium  shock  calculations  for  a  real  or  ideal  gas.  The  real  and  ideal  gas 
calculations  are  similar,  the  difference  being  that  an  ideal  gas  case  con¬ 
verges  on  the  first  iteration. 

CALLING  SEQUENCE 

CALL  ESHOCK  (OF, SI,  VI,  EP,  DELTA,  S2,  V2.K2W.K1W) 

where  the  input  properties  are,  OF,  the  upstream  O/F  ratio  or  total  enthalpy, 
SI,  VI,  the  upstream  entropy  and  velocity  and,  EP,  the  shock  angle.  The 
subroutine  returns  with  DELTA,  the  turning  angle  and  S2,  V2,  the  downstream 
entropy  and  velocity. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTRL/ 

COMM  ON /GASCON/ 

EMOFV 

THERMO 

POFEM 

DELTAF 

ENTROP 

RHOFEM 

WEAK 

METHOD  OF  SOLUTION 

The  continuity  equation  coupled  with  the  equations  for  conservation  of 
normal  and  tangential  momentum  are  solved  in  an  iterative  manner  utilizing 
thermochemical  property  data  to  satisfy  the  conservation  of  energy  equation. 
This  set  of  four  equations  is  expressed  in  terms  of  the  four  unknown  quantities: 

e  =  shock  angle 

6  =  turning  angle 

S^  =  entropy  downstream  of  shock 

V^  =  velocity  downstream  of  shock 
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SUBROUTINE  NAME:  EXPCOR 


DESCRIPTION 

EXPCOR  calculates  the  flow  properties  of  those  field  points  near  an 
expansion  corner. 


CALLING  SEQUENCE 

CALL  EXPCOR  (NPM,  J,  K,  ITOT  J,  ITOTK,  IPNT,  K2W,  K  1 W) 


where 


NPM 

J 

K 

ITOT  J 

ITOTK 


IPNT 


number  of  Prandtl -Meyer  expansion  rays 
emanating  from  the  expansion  corner 

known  normal  line  upstream  of  the  expansion 
corner 

the  normal  line  under  consideration  downstream 
of  the  expansion  corner 

adjusted  total  number  of  points  on  the  J-line, 
not  including  the  Prandtl -Meyer  expansion 
points  NPM 

number  of  points  on  K-line  before  the  Prandtl- 
Meyer  expansion  points  are  added;  returns  to 
the  calling  routine  with  the  total  number  of  points 
on  K-line  including  Prandtl -Meyer  expansion  points 

indicates  if  an  upper  (=2)  or  lower  (  =  1)  boundary 
is  being  considered. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


common/ chemxx/ 
COMMON /GLOBAL/ 
COMMON /CON  TRL/ 
COMMON  /DATAR/ 
COMMON /IN  PUT/ 
COMMON  /  STEPC/ 
COMMON/AUX/ 


COMMON/FSTAG/ 

COMMON /GAPPA/ 

INRSCT 

MOCSOL 

OUT 

SPCTX 

PPATPT 
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METHOD  OF  SOLUTION 

Flow  properties  at  the  expansion  corner  points  are  known  (from 
PRANDT).  Calculation  starts  from  one  of  the  corner  points  which  have 
zero  turning  angle  and  proceeds  toward  the  point  with  an  increasing  turning 
angle.  Subroutine  MOCSOL  is  used  to  solve  for  the  flow  properties  of  the 
intersection  of  the  characteristic  lines  from  two  known  points.  The  prop¬ 
erties  of  the  intersection  of  the  normal  from  the  known  point  on  the  new 
line  (K-line,  normal  to  the  streamlines),  with  the  characteristic  of  the 
corresponding  point  at  the  corner,  are  then  interpolated.  This  point  is  then 
used  along  with  another  point  at  the  expansion  corner  to  find  another  new 
point,  and  so  forth.  The  last  of  the  expansion  corner  points  is  used  twice 
in  the  calculation  to  find  two  points  on  the  new  normal  —  one  on  the  char¬ 
acteristic  line,  the  other  on  the  streamline. 

A  weak  shock  is  then  initialized  at  the  point  on  this  last  characteristic 
line  and  a  mesh  point  is  inserted  between  this  point  and  the  point  on  the  last 
expansion  ray  which  is  a  streamline  rather  than  a  characteristic  line. 

For  a  detailed  description  of  the  calculation  procedure,  see  Volume  I, 
Section  6.9. 
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SUBROUTINE  NAME:  FABLE 


DESCRIPTION 

This  subroutine  utilizes  real  or  ideal  gas  information  obtained  from  a 
master  tape  or  input  cards  to  calculate  properties  locally  in  the  flow.  The 
maximum  size  of  the  array  used  by  FABLE  is  limited  to  eight  gas  properties 
(V,  R,  y ,  T  ,  P  ,  n,  Pr ,  C  )  at  13  velocity  "cuts"  for  each  of  two  entropy  cuts 
and  10  O/F  or  total  enthalpy  cuts. 


CALLING  SEQUENCE 

CALL  TABLE  (SS,  VV.IF) 


where  SS  is  the  local  entropy,  IF  is  the  O/F  or  enthalpy  table  of  interest 
and  VV  is  the  local  velocity  at  the  point  of  interest. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/XSICOM/ 
COMMON  /CONTRL/ 
COM  MON /GASCON/ 
COMMON/FAB/ 
COMMON/GRINT/ 
COMMON/TEMPER/ 
COMMON/CPMUK/ 
COMMON /PAR  TFP/ 


COMMON /GASDAT/ 

COMMON/MOL/ 

COMMON/FI  LIT/ 

TOF  V 

POFEM 

EMOFV 

XSI 

TAB 


METHOD  OF  SOLUTION 

The  routine  is  entered  with  an  O/F  or  enthalpy  table,  IF,  the  local 
entropy,  SS,  and  velocity,  VV.  A  test  is  then  made  to  determine  if  the  gas 
is  real  or  ideal.  If  the  test  indicates  an  ideal  gas,  the  local  properties  are 
set  to  those  stored  in  the  TABB  common  array.  If  the  test  indicates  real 
gas,  a  double  interpolation  scheme  is  utilized  to  locate  gas  properties  be¬ 
tween  tabulated  values  of  velocity  and  entropy.  In  the  case  of  an  entry 
beyond  the  range  of  the  tables,  an  ideal  gas  extrapolation  from  the  last 
table  value  is  made  to  determine  the  gas  properties. 
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FUNCTION  NAME;  FNEWTN 


DESCRIPTION 

This  function  solves  for  the  Newtonian  impact  pressure  along  the 
plume  boundary.  The  calculation  is  applicable  for  all  free  stream  velo¬ 
cities  including  quiescent  conditions  (i.e.,  M  =  0). 

00 

CALLING  SEQUENCE 

PIM  =  FNEWTN  (THETA3,  X,ITYPE1,K1W1,K1W2) 

where  Pj  is  the  hypersonic  Newtonian  impact  pressure  at  the  plume  bound¬ 
ary,  THETA3  is  the  local  flow  angle  at  the  boundary,  X  is  the  axial  coordinate 
of  the  boundary  point,  and  ITYPE  indicates  if  an  upper  (=2)  or  lower  (  =  1)  boun 

dary  is  oeing  considered. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/DATAR/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 

The  common  block  region  WALLCO  contains  the  necessary  informa¬ 
tion  to  evaluate  the  freestream  gas  properties  at  the  plume  boundary  point. 
The  impact  pressure  is  then  calculated  using  the  following  equation 

P  =  P  (1  +  eX)  [l  +  y  M2  sin2(e„  -  9  )] 

00  l  00  00  ti  oo  J 


* 
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SUBROUTINE  NAME:  FREEMC 


DESCRIPTION 

This  subroutine  computes  flowfield  properties  in  the  free  molecular 
r  eg  ime. 

CALLING  SEQUENCE 

CALL  FREEMC  (II,  Jl,  K  1,  I  TOT,  IOO,  I  OUT,  I  MOD) 

where  II  is  the  point  number  for  the  first  free  molecular  point  on  a  normal, 
Jl  is  the  old  data  surface,  K  1  is  the  new  data  surface,  ITOT  is  the  total 
number  of  points  on  the  line,  IOO  is  the  line  number  for  which  a  complete 
line  is  to  be  printed,  IOUT  is  the  total  number  of  lines  to  skip  between  com¬ 
plete  printout  and  IMOD  is  the  number  of  points  to  shift  on  the  old  data  sur¬ 
face  to  locate  each  base  point  streamline. 


UTILI  TY  ROUTINES  AND  COMMON  REFERENCES 


C OM  M  ON  /  CON  T  R  L/ 
COMMON  /  DAT AR/ 
COMM  ON  / PA R  T P 1  / 
C  OM  M  ON  /PAR  T  P2 / 
COMMON/FREE/ 

C  OM  M  ON  /G  ASC  ON  / 
C  OM  M  ON  /  F  STAG/ 
COMMON  /  CUTFO,/ 
COMMON  /  S  TEPC/' 
COM  MON/C  RI  TER/ 


COMMON  /GLOBAL/ 

BOUND 

ITERM 

INRSCT 

WTFLOF 

IDMPFP 

PFP 

OUT 

OUTBIN 


METHOD  OF  SOLUTION 

Once  it  has  been  determined  that  a  point  is  free  molecular  all  successive 
calculations  of  the  particular  streamline  point  are  made  via  FREEMC.  The 
point  properties  are  determined  assuming  that  temperature,  gas  velocity,  flow 
angle,  gas  constant  and  specific  heat  ratio  (y)  are  constant  along  a  streamline. 
The  gas  density  is  determined  from  a  source  flow  calculation  (i.e.,  conservation 
of  mass  between  streamlines). 
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f>Z  = 


pl  ui  A1 
u2  A2 


where  subscript  1  is  the  old  data  surface  properties  and  subscript  2  is  the 
new  data  surface  properties.  The  pressure  at  the  new  point  is  then  deter¬ 
mined  from  the  equation  of  state. 
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SUBROUTINE  NAME:  GAPPBI 
DESCRIPTION 

This  subroutine  interpolates  for  the  gas  and  particle  properties  be¬ 
tween  two  known  data  points. 

CALLING  SEQUENCE 

CALL  GAPPBI  (18,  JU,  19,  KU,  JB,  M,  ISKIPG,  PG,  FACTOR,  Ml) 

where  18  is  the  base  point  number,  JU  is  the  base  point  line  number,  19  is 
the  second  point  number,  KU  is  the  second  point  line  number,  JP  is  the 
temporary  location  in  the  IPFP  array  to  store  the  interpolated  data,  M  is 
the  number  of  particles  present,  ISKIPG  is  a  flag  used  to  determine  what 
arrays  to  use  to  do  the  interpolation,  PG  is  the  array  in  which  the  inter¬ 
polated  point  properties  are  stored,  FACTOR  is  the  interpolation  factor, 
and  Ml  =  0  gas  only,  Ml  =  1  particles  present. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/TFLAG/ 

COMMON /DR  AGC  F/ 

COMMON/ DA  TAR/ 

COMMON/PCTC/ 

COMMON/PAR  TP  1/ 

COMMON/VISEX/ 

COMMON/PARTP2/ 

ALGINT 

COMMON /GAPPA/ 

PFP 

COMMON /GASCON/ 

THERMO 

COMMON/POINTC/ 

UOF  V 

COMMON/CPMUK/ 

TOF  V 

COMMON/CONTRL/ 

EMOFV 

COMMON/FSTAG/ 

POFEM 

COMMON/TEMPER/ 

TEMTAB 

COMMON/C  RITER/ 

DRAGMR 

COMMON/PSLD/ 

DRAGCP 

COMMON  /XXSH/ 
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METHOD  OF  SOLUTION 


The  routine  performs  a  linear  interpolation  between  the  properties 
of  two  known  points  and  stores  the  results  in  temporary  arrays  which  are 
used  in  other  parts  of  the  program  during  the  calculation.  ISKIPG  is  a  flag 
which  tells  GAPPBI  which  arrays  to  use  for  the  interpolation  and  whether 
or  not  to  interpolate  on  particle  properties. 
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SUBROUTINE  NAME:  GASRD 
DESCRIPTION 

This  subroutine  reads  in  the  gas  properties.  These  properties  may 
be  real  or  ideal  and  read  in  via  cards  or  tape.  The  routine  also  converts 
input  gas  properties  from  MKS  units  to  English  (ENG)  units  if  necessary. 

CALLING  SEQUENCE 

CALL  GASRD  (IPAR) 

where  IPAR  is  a  1  for  two -phase  flow  and  a  zero  for  gas -only  flow. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/XSICOM/ 

COMMON/CON  TRL/ 

COMMON  /INTCR/ 

COMMON /GASCON/ 

COMMON /GASDAT/ 

COMMON/MOL/ 

COMMON/FSTAG/ 

XSI 

GASTAP 

IDMXSI 

IDTAPE 

IDMTAB 

TAB 

METHOD  OF  SOLUTION 

The  gas  name,  ALPHA(I),  type  units,  number  of  O/F  tables  and  number 
of  entropy  cuts  are  read  in  from  an  input  card.  If  the  gas  properties  are  on 
cards,  this  subroutine  reads  the  cards.  If  the  gas  properties  are  on  tape, 
control  of  the  reading  of  properties  is  given  to  GASTAP.  In  either  case,  the 
properties  are  converted  from  MKS  to  English  (ENG)  units  by  this  sub¬ 
routine  if  necessary. 
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SUBROUTINE  NAME:  GASTAP 
DESCRIPTION 

GASTAP  reads  the  real  gas  properties  from  the  thermochemical  data 
tape  generated  by  the  modified  TRAN 72  computer  program  and  writes  this 
same  data  on  a  flowfield  tape  for  communication  with  other  programs. 

CALLING  SEQUENCE 

CALL  GASTAP 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/GASDAT/ 

COMMON/CONTRL/ 

COMMON/'DATAR/ 

COMMON/HEAD/ 

COMMON/PARTP2  / 

COMMON/CHEMCN/ 

COMMON/PCTC/ 


COMMON/XXSH/ 

common/b  presw/ 
common/taprit/ 

COMMON/SIGMB/ 

IDMTAB 

ERRORS 

IMPUT 


METHOD  OF  SOLUTION 

The  gas  name,  ALPHA(I),  specified  on  the  input  data  is  compared 
with  available  cases  on  the  TRAN72  thermochemical  data  tape  until  a  match 
is  found.  This  particular  case  is  then  read,  stored  in  core,  arranged  in  a 
form  such  that  automatic  transmission  of  data  to  other  programs  is  possible, 
and  then  written  on  the  RAMP  flowfield  tape. 
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SUBROUTINE  NAME:  HYPER 


\ 


DESCRIPTION 

This  subroutine  calculates  the  balanced  pressure  at  a  corner  point 
(i.e.,  at  the  intersection  of  a  solid  boundary  and  the  pressure  boundary). 
The  pressure  balance  is  determined  for  either  the  overexpanded  or  under¬ 
expanded  case  with  impact  or  ambient  freestream  pressure. 


CALLING  SEQUENCE 

CALL  HYPER  (PB ,  I ,  K,  IT  YPE 1 ,  K 1 W 1 ,  K 1 W2) 

where  PB  is  the  boundary  pressure,  I,K  locates  the  boundary  point,  and 
ITYPE1  indicates  if  an  upper  (  =  2)  or  lower  (  =  1)  boundary  is  being  considered. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CONTRL/ 

C  OMMON  /D  AT  AR/ 

COMMON/PCTC/ 

COMMON/FSTAG/ 

THERMO 

POFEM 

EMOFV 


FNEWTN 

OVER EX 

ITSUB 

THETPM 

TOFH 

ERRORS 


METHOD  OF  SOLUTION 

The  boundary  pressure  (may  be  impact  or  ambient)  is  compared  to 
the  static  pressure  at  the  corner  point.  Depending  on  whether  the  com¬ 
parison  indicates  the  flow  is  overexpanded  or  underexpanded,  a  branch  is 
made  to  OVEREX  or  THETPM.  In  either  of  these  routines  an  iterative 
process  balances  the  boundary  pressure  with  the  flowfield  pressure  at  the 
boundary. 
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FUNCTION  NAME;  IDMPFP 
DESCRIPTION 

This  function  computes  the  particle  storage  location  within  the  PFPARY 

array. 

CALLING  SEQUENCE 

=  IDMPFP  (I,  J,K,  L) 

where  I,  J,  K,  L  are  indices  used  to  determine  the  storage  location. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMM  ON/PAR  TP  1/ 

COMM  ON/PAR  TP2/ 

COMMON/PARTP3/ 

RWU 

METHOD  OF  SOLUTION 

The  particle  storage  location  is  computed  using  the  following  relation 


IDMPFP  =  1  +  5  *  (J-l  +  10  *  (K  - 1  +  100  *  (L-  1))) 
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[■'UNCTION  NAME:  IDMTAB 


DESCRIPTION 

This  function  computes  the  gas  property  storage  location  within  the 
TABB  array. 

CALLING  SEQUENCE 


=  IDMTAB  (I,  J,  K,  L) 

where  I,  J,  K,  L  are  indices  used  to  determine  the  storage  location. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
None 

METHOD  OF  SOLUTION 

The  gas  property  storage  location,  is  computed  using  the  following 
relation 


IDMTAB  =  I  +  10  *  (J-l  +  2  *  (K-l  +  13  *  (L-l))) 
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FUNCTION  NAME:  IDMXSI 
DESCRIPTION 

This  function  computes  the  gas  interpolation  parameter  storage  loca¬ 
tion  within  the  XSIDIM  array. 

CALLING  SEQUENCE 


=  IDMXSI  (I,  J,  K,  L) 

where  I,  J,K,  L  are  indices  used  to  determine  the  storage  location. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 
None 

METHOD  OF  SOLUTION 

The  gas  interpolation  parameter  storage  location  is  computed  using 
the  following  relation 

IDMXSI  =  I  +  10  *  (J-l  +  2  *  (K - 1  +  13  *  (L-l))) 
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SUBROUTINE  NAME:  IDTAPE 


DESCRIPTION 

This  subroutine  writes  the  gas  properties  which  were  input  via  cards 
on  the  flowfield  program  tape.  The  format  used  to  write  them  on  tape  is 
compatible  with  that  used  for  a  real  gas. 

CALLING  SEQUENCE 

CALL  IDTAPE  (UNITS,  K  1W 1 ,  K  1W2) 

where  UNITS  indicates  whether  the  gas  properties  are  being  read  in  with 
English  (ENG)  or  MKS  units. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON /XXSH/ 
COMMON/TAPRIT/ 
COMM  ON/CON  TRL/ 
COMMON/HEAD/ 


COMMON/BPRESW  / 
COMMON/PARTP2/ 
COMMON/GASDAT/ 
TAB 


METHOD  OF  SOLUTION 

Gas  property  data  are  read  in  from  cards.  If  not  already  in  MKS  units 
the  data  are  converted.  These  converted  data  are  then  written  on  the  flow- 
field  tape. 


3-167 


LOCKHEED  -  HUNTSVILLE  RESEARCH  &  ENGINEERING  CENTER 


SUBROUTINE  NAME;  IMPUT 


DESCRIPTION 

This  routine  reads  the  input  cards  or  tape  for  the  chemistry  package. 
The  reaction  rate  equations,  rate  constants,  and  startline  species  concentra¬ 
tions  are  read  in  and  the  appropriate  conversions,  if  any,  are  performed. 
Tables  of  enthalpy,  entropy,  and  specific  heats  for  each  species  are  also 
input . 

CALLING  SEQUENCE 

CALL  IMPUT  (IDATA) 

where  IDATA  specifies  the  proper  index  of  the  array  being  input  from  a 
CEC  data  tape  from  which  species  concentrations  are  being  extracted. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTRL/ 

COMMON /CHEMCN/ 

COMMON /DATAR/ 

COMMON/GASDAT/ 

COMMON/CHEMXX/ 

common/ cpmuk/ 

COMMON/VISEX/ 

COMMON  /  PCTC/ 

COMMON/GASCON/ 

COMMON/VARSL/ 

SPCTX 

METHOD  OF  SOLUTION 

The  routine  reads  species  thermodynamic  data  and  constructs  a  Gibbs 
free  energy  array  to  replace  the  entropy  array.  The  reaction  rate  constant 
data,  reactions,  and  third  body  data  are  input  and  stored.  Finally  the  start - 
line  species  concentrations  are  input  via  cards  or  tape  and  converted  to 
mole/mass  ratios. 
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SUBROUTINE  NAME:  INITP 


DESCRIPTION 

This  subroutine  initializes  the  values  of  various  control  parameters, 
thereby  providing  for  proper  operation  of  the  program.  These  initial  values 
include: 

1.  The  counter  for  the  upper  and  lower  boundary  equations, 

2.  The  counter  for  the  first  characteristic  line, 

3.  The  initial  number  of  degrees  per  Prandtl-Meyer  ray, 

4.  Convergence  criteria,  and 

5.  Maximum  number  of  iterations. 

CALLING  SEQUENCE 

CALL  INITP  (K1WT.K1W2) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTRL/ 

COMMON/CRITER/ 

COMMON/DATAR/ 

COMMON  /DISCOM/ 

COMMON/HEAD/ 

COMMON /STEPC/ 

UTILITY  -None 

METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME:  INRSCT 


DESCRIPTION 

INRSCT  finds  the  intersection  of  two  straight  lines. 

CALLING  SEQUENCE 

CALL  INRSCT  (Tl,  T2,  T3,  T4,  T5,  T6,  R3,  X3,  K  1W1,  K  1W2) 

where  Tl,  T2,  T3  and  T4,  T5,  T6  define  the  equations  of  the  two  straight  lines 
which  intersect  at  R3.X3. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  -  None 
ERRORS 

METHOD  OF  SOLUTION 

The  equations  of  the  straight  lines  are  written 

r  =  tanT3  (x  -  T2)  +  Tl 

and 

x  =  cotT6  (r  -  T4)  +  T5 

These  equations  are  solved  for  x,  but  a  test  on  the  slopes  is  made  to  prevent 
indeterminate  forms.  If  an  indeterminate  form  is  possible,  the  points  are 
mapped  one  onto  another,  thus  precluding  the  possibility  of  indeterminancy 
except  when  the  lines  are  parallel. 
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SUBROUTINE  NAME:  INTEGR 


DESCRIPTION 

This  subroutine  calculates  the  incremental  force  and  energy  between 
two  adjacent  points  in  the  flow  field. 

CABLING  SEQUENCE 

CALL  INTEGR  (DELX,  DELY,  THTBR,  R,  DA.  V, 

RHO,  P.X.  I.K,  FXP,  FYP,  TRP,  FXG,  FYG,  TRG, 

AX02D,  ENU,  EG.EP,  EM,  DW) 

where 

DELX  =  difference  in  axial  position  between  the  two  points 
DELY  =  difference  in  radial  position  between  the  two  points 
THTBR  =  average  flow  angle  of  the  two  points 
R  =  average  radial  position  of  the  two  points 
DA  =  absolute  distance  between  the  two  points 
V  =  average  gas  velocity  of  the  two  points 
RHO  =  average  gas  density  of  the  two  points 
P  =  average  gas  pressure  of  the  two  points 
X  =  average  axial  position  of  the  two  points 
I  =  point  number  of  the  base  point 
K  =  line  number  of  the  base  point 

FXP  =  incremental  force  in  axial  direction  due  to  the  particle 
momentum 

FYP  =  incremental  force  in  radial  direction  due  to  the  particle 
momentum 

TRP  =  incremental  torque  due  to  particle  momentum 

FXG  =  incremental  force  in  axial  direction  due  to  gas 

FYG  =  incremental  force  in  radial  direction  due  to  gas 

TRG  =  incremental  torque  due  to  gas  axial  and  radial  forces 

AX02D  =  geometric  term  for  axisymmetric  or  2-D  flow 

ENU  =  angle  the  line  connecting  the  two  points  has  referenced 
to  horizontal 

EG  =  incremental  gas  energy 
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EP  -  incremental  particle  energy 

EM  =  sum  of  incremental  particle  and  gas  energy  (i.e.,  mixture) 

DW  =  incremental  gas  mass  flow  between  the  two  points. 

UTILITY  ROUTINES  AND  COMMON  REFERENCE 
COMMON/CONTRL/ 

COMMON/PARTP1/ 

COMMON/PARTP2/ 

COMMON/DATAR/ 

COMMON/FSTAG/ 

COMMON /INTC  R/ 

PFP 

VEMAG 

METHOD  OF  SOLUTION 

This  subroutine  calculates  the  mass  flow,  energy,  momentum  and  thrust 
produced  by  the  particles  and  gas  contained  in  each  streamtube  bounded  by 
two  streamline  points  on  a  normal.  The  resulting  values  are  integrated  along 
each  normal  and  compared  to  the  initial  data  surface  to  determine  how  well 
the  solution  is  conserving  the  conservation  equations. 
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FUNCTION  NAME:  ITERM 


DESCRIPTION 

ITERM  tests  each  normal  lower  wall  point  to  determine  ..f  it  is  within 
the  predefined  problem  limits.  If  the  point  falls  outside  the  limits,  the  case 
1  s  terminal  ed . 

CALLING  SEQUENCE 

FUNCTION  =  ITERM  (IP,  K,  K  1 W  1 ,  K  1 W2) 
where  IP  identifies  the  characteristic  point  on  the  new  K  line. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CUTFO/ 

COMMON/DATAR/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 

The  angular  orientation  of  a  line  drawn  from  the  upper  or  lower  Cutoff 
coordinates  to  the  characteristic  point  is  determined.  Comparing  this  angle 
to  the  angle  of  the  upper  or  lower  cutoff  line  determines  if  the  point  is  inside 
or  outside  the  problem  limits. 
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SUBROUTINE  NAME:  ITSUB 
DESCRIPTION 

This  subroutine  controls  the  iterative  solution  of  any  set  of  equations 
which  can  ultimately  be  expressed  as  a  function  of  one  variable;  it  can  also 
be  used  to  control  an  integration  loop. 

CALLING  SEQUENCE 

CALL  ITSUB  (FOFY,  Y,SAVE,  CON  V,  NTIMES,  K 1  Wl,  K 1 W2) 

where 

FOFY  is  the  function  of  Y  which  is  driven  to  zero 
Y  is  the  variable  which  is  iteratively  solved  for 

SAVE  is  the  program  control  array,  i.e.,  SAVE(l)  is  a  control  counter, 
SAVE(2)  is  the  Y  increment 

CONV  is  the  convergence  criteria  for  FOFY 

NTIMES  =  maximum  number  of  iterations  to  be  performed 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
N  one 

METHOD  OF  SOLUTION 

ITSUB  modifies  Y  in  the  proper  direction  by  the  increment  value 
SAVE(2)  until  the  root  has  been  bracketed.  The  method  of  false  position  is 
then  used  to  modify  Y  until  the  solution  is  reached.  Immediately  after 
entering  ITSUB  each  time,  the  function  is  inspected  for  convergence.  If 
the  function  has  converged,  a  program  control  is  set,  and  computer  control 
is  transferred  to  the  calling  routine. 
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SUBROUTINE  NAME;  KIKOFF 
DESCRIPTION 

This  subroutine  terminates  the  use  if  an  error  in  the  calculation  is 
encountered. 

CALLING  SEQUENCE 

CALL  KIKOFF  (K1W1.K2W2) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/C  ONTRL/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME;  LAGRNG 
DESCRIPTION 

This  subroutine  determines  the  radial  location  and  flow  angle  for  solid 
boundaries  which  are  input  as  tables  of  R,X  and  flow  angle. 

CALLING  SEQUENCE 

CALL  LAGRNG  (IER,  ID,  ARG,  R,  THETA,  ITYPE) 

where 

IER  is  an  error  flag,  ID  is  a  table  location, 

ARG  is  the  axial  value  for  which  the  radial  coordinate,  R, 
of  the  wall  and  flow  angle,  THETA,  at  the  wall  are 
desired, 

ITYPE  indicates  if  an  upper  (  =  2)  or  lower  (=  1)  boundary 
is  being  considered. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/DATAR/ 

COMMON/CONTRL/ 

COMMON/WAFT/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 

The  routine  uses  the  Lagrange  interpolation  formula  to  solve  for  R  and 
flow  angle  as  a  function  of  axial  position  ,  X,  from  a  set  of  tabular  points  de¬ 
scribing  a  solid  boundary.  The  routine  uses  the  three  closest  points  to  the 
desired  X  to  solve  the  interpolation  formula.  In  the  vicinity  oflarge  nonlinear 
variations  in  R  and  flow  angle  the  points  should  be  placed  close  together. 
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SUBROUTINE  NAME:  LIMITS 
DESCRIPTION 

This  subroutine  tests  the  new  boundary  point  to  determine  if  it  is  within 
the  limits  of  the  current  boundary  equation.  Depending  on  the  test,  the  options 
are; 

1.  use  the  current  boundary  equation, 

2.  advance  to  the  next  boundary  equation,  or 

3.  the  current  equation  is  the  last  one  specified. 

CALLING  SEQUENCE 

CALL  LIMITS  (I,  K,  ITYPE,  IOK,  KIWI,  K1W2) 

where  I,  K  represents  the  location  of  the  boundary  point  in  the  PHO  array, 
ITYPE  indicates  if  an  upper  or  lower  boundary  is  being  considered,  and  IOK 
is  a  control  indicating  if  option  1,  2  or  3  is  to  be  used. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTRL/ 

COMMON/DATAR/ 

BOUND 

METHOD  OF  SOLUTION 

The  radius,  RMAX,  and  boundary  angle,  THETAMAX,  at  the  limiting 
axial  value  XMAX  is  calculated  in  BOUND.  RMAX  or  XMAX  is  compared  to 
R  or  X  for  the  point  in  question.  The  results  of  the  comparison  determine 
which  of  options  1,  2  or  3  is  to  be  used. 
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SUBROUTINE  NAME:  LIPIN 
DESCRIPTION 

LIPIN  calculates  information  for  the  starting  line  points  when  the 
simplified  straight  start  line  option  is  used  (i.e.,  when  ICON(2)/2). 

CALLING  SEQUENCE 

CALL  LIPIN  (COOR,  S,  IN  TOT,  DELM,  K1W1,K1W2) 

where  COOR  is  the  starting  line  information  array,  S  is  the  entropy  level  of 
the  start  line,  1NTOT  is  the  total  number  of  input  points  specified  (50  Max), 
DELM  is  Mach  number  gradient  along  the  startline,  and  KIWI  is  a  flag  which 
determines  the  type  of  startline  point  distribution. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COM  MON /IN  PUT/ 

COMMON/CONTRL/ 

COMMON/PCTC/ 

COMMON /FSTAG/ 

COMMON/GASCON/ 

RGVOFM 
UOF  V 
THERMO 

METHOD  OF  SOLUTION 

The  startline  input  data  are  divided  into  the  specified  number  of  incre¬ 
ments.  Radial  gradients  in  Mach  number,  X  and  0,  are  calculated. 

KIWI  =0  Tne  startline  points  are  concentrated  near  the  upper 
boundary 

KIWI  =  1  The  startline  points  are  evenly  spaced 

KIWI  =  2  The  startline  points  are  evenly  spaced  on  a  source  line 
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SUBROUTINE  NAME:  MASCON 
DESCRIPTION 

MASCON  calculates  the  Mach  number  distribution  at  an  area  downstream 
of  the  throat  such  that  total  mass  flow  is  conserved.  Mass  flow,  calculated  at 
the  throat,  is  used  as  the  constant  for  comparison. 

CALLING  SEQUENCE 

CALL  MASCON  (E,  SE,  DELM,  KIWI,  K1W2) 

where  E  is  the  input  line  array  CORLIP,  SE  is  the  input  line  entropy  level, 
and  DELM  is  the  Mach  number  gradient  along  the  startline. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTRL/ 

RG VOFM 

ERRORS 

EMOFV 

ITSUB 

RHOFEM 

METHOD  OF  SOLUTION 

•  *  .  * 

The  mass  flow  rate  at  the  throat,  m  ,  is  calculated.  This  m  is  com¬ 
pared  to  that  at  the  input  line  location  for  an  initial  Mach  number  distribution. 
The  Mach  number  distribution  is  then  perturbed  until  mass  flow  is  conserved. 
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SUBROUTINE  NAME:  MASSCK 


DESCRIPTION 


This  subroutine  keeps  a  running  check  on  the  mass  flow.  Mass  flow  at 
the  starting  line  is  calculated  and  compared  with  that  crossing  each  normal 
line  downstream. 

CALLING  SEQUENCE 

CALL  MASSCK  (ILAST,  ISTART,  K,  K  1 W 1 ,  K  1 WZ) 

where  ILAST  is  the  last  point  on  the  normal  line,  ISTART  is  a  number  of  the 
first  point  on  the  normal  and  K  represents  the  normal  line  under  consider¬ 
ation. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/DATAR/  COMMON/FORCE/ 

COMMON/MASSC/  COMMON/WT/ 

COMMON/INPUT/  COMMON/PAR  TP  1/ 

COMMON/PSLD/  COMMON /PARTP2/ 

COMMON/CONTRL/  COMMON/IN  TCR/ 

COMMON/NSF  /  COMMON/FSTAG/ 

COMMON/STEP  C/  INTEGR 

COMMON/SIGNAL/  PFP 

METHOD  OF  SOLUTION 

The  mass  flow  through  the  startline  is  calculated  and  stored.  Mass 
flow  through  lines  downstream  is  calculated  and  these  values  compared  with 
the  initial  value.  A  percent  change  in  mass  flow  is  printed  for  each  normal 
line.  The  total  mass  flow  passing  under  each  point  on  a  characteristic  line 
is  stored  so  the  mass  flow  can  be  written  on  the  output  tape  to  permit  stream¬ 
line  t  racing . 
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SUBROUTINE  NAME:  MAXTIM 
DESCRIPTION 

This  subroutine  is  a  Univac  1108  machine  language  routine  that  checks 
a  user  input  time  (seconds)  against  the  remaining  CPU  time  before  run  term¬ 
ination  and  returns  to  a  specified  label  in  the  calling  routine. 

CALLING  SEQUENCE 

CALL  MAXTIM  ($ LABEL,  TIME) 

where 

LABEL  =  the  statement  number  in  the  calling  routine 
where  execution  is  sent  if  TIME  is  greater 
than  the  remaining  CPU  time  for  the  run. 

TIME  =  time  in  seconds  before  CPU  maximum  time 
when  the  run  is  to  be  terminated  normally. 

UTILITY  ROUTINES  AND  COMMON  BLOCKS 
None 

METHOD  OF  SOLUTION 

TIME  is  checked  against  the  remaining  CPU  time  for  the  particular  run. 
If  the  remaining  CPU  time  is  less  than  TIME  then  control  of  program  execution 
is  returned  to  statement  LABEL  in  the  calling  routine. 
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SUBROUTINE  NAME:  MOCSOL 


DESCRIPTION 

This  subroutine  solves  the  characteristic  equations  for  gas  only  flow  in 
the  region  around  and  downstream  of  an  expansion  corner. 

CALLING  SEQUENCE 

CALL  MOCSOL  (IN  ,  KN  ,  IN  1 ,  KN  1 ,  IN  2,  KN2, 1  FLAG ,  ITY  PE,  K1W1.K1W2 

where  IN,KN  identifies  the  storage  location  for  the  new  point  to  be  computed, 
IN1.KN1  identifies  the  right  running  known  point,  and  IN2.KN2  identifies  the 
left  running  known  point.  IFLAG  is  an  error  indicator  and  ITYPE  selects  the 
type  calculation. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/ PARTPl/ 

COEFF3 

COMMON /PARTP2/ 

INRSCT 

COMMON/GAPPA/ 

POFEM 

COMMON/ON  TSPT/ 

COEFEQ 

COMMON/A  VPKOP/ 

PPATPT 

common/slippt/ 

PFP 

COMMON /GLOBAL/ 

IDMPFP 

COMMON/FSTAG/ 

BOUND 

common/free/ 

ROTERM 

COMMON /STEPC/ 

VOFEM 

COMMON/  cpmuk/ 

RGMOFP 

COMMON/PCTC/ 

FNEWTN 

COMMON/CONTRL/ 

TOFH 

COMMON/CRITER/ 

UOFV 

COMMON/DATAR/ 

NEWENT 

COMMON /GASCON/ 

ERRORS 

SPCTX 
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METHOD  OF  SOLUTION 

The  four  characteristic  equations  are  written  as  a  function  of  five 
variables,  R,X,8,V  and  S.  An  additional  relationship  is  obtained  by  assuming 
the  entropy,  S,  varies  linearly  between  known  data  points.  Using  these  char¬ 
acteristic  equations  in  finite  difference  form,  the  routine  solves  for  a  new  mesh 
point,  knowing  two  mesh  points  of  an  opposite  family. 

The  solution  is  begun  by  setting  the  average  values  of  properties  over 
the  step  length  equal  to  the  known  values  at  the  base  points.  Subsequent 
passes  in  the  iterative  solution  result  in  "updated"  average  values.  The 
iterative  solution  is  continued  until  the  desired  convergence  on  velocity  or 
flow  angle  is  reached  or  until  the  maximum  number  of  iterations  is  exceeded. 

MOSCOL  is  utilized  by  subroutine  EXPCOR  to  solve  the  normal  line 
immediately  downstream  of  any  expansion  corner. 
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SUBROUTINE  NAME;  NEWENT 


DESCRIPTION 


This  subroutine  calculates  the  change  in  entropy  and  gas  total  enthalpy 
along  a  gas  streamline  for  gas  particle  flows. 

CALLING  SEQUENCE 

CALL  NEWENT  (NP,  1T1,  IT2,  S3,  H3,K,  PB) 

where 

NP  =  number  of  particles  present  on  streamline 
IT1  =  1  for  interior  point 

2  for  wall  point 

IT2  =  1  for  interior  or  lower  wall  point 

=  2  for  upper  wall  point 

S3  =  entropy  at  new  point 

H3  =  total  enthalpy  at  new  point 

K  =  5  gas  only  streamline 

7  gas  and  particles  present  on  streamline 

PB  =  array  containing  streamline  base  point  properties 
(upstream) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 


CHEM 


COMMON/CONTRL/  COMMON/CHEMXX/ 

COMMON/CHEMXY/  COMMON/CHEMCN/ 

COMMON/A  VPROP/  COMMON/VISEX/ 

COMMON/GAPPA/  CHEM 

COMMON /SLIPPT/ 

METHOD  OF  SOLUTION 

T.ie  compatibility  relations  for  gas  total  enthalpy  and  entropy  (Eqs.  (3.2), 
and  (3.  1)  of  Table  3-1)  are  solved  at  the  new  streamline  point  knowing  the  gas 
and  particle  properties  at  the  new  and  base  streamline  points.  For  gas  only 
flows  (and  streamlines  not  crossing  a  shock)  the  gas  total  enthalpy  and  entropy 
are  held  constant  along  a  given  streamline. 
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SUBROUTINE  NAME;  NORSCK 


DESCRIPTION 

This  routine  uses  local  flow  properties  to  calculate  properties  down¬ 
stream  of  a  normal  shock  to  obtain  pitot  pressure.  This  routine  is  used  only 
for  finite  rate  chemistry,  real  gas  cases. 

CALLING  SEQUENCE 

CALL  NORSCK  (VI,  PI,  EMI,  TI,  GMI,  RI,  HI,  POSTR) 


where 

VI,  PI,  ...  ,  HI  are  the  local  values  of  velocity,  pressure,  Mach 
number,  temperature,  gamma,  gas  constant  and 
enthalpy 

POSTR  is  the  pitot  pressure. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /GASCON/ 

COMM  ON /PC  TC/ 

TOFENH 

ITSUB 

METHOD  OF  SOLUTION 

The  downstream  conditions  are  first  estimated  using  ideal  gas  relations 
The  routine  then  performs  an  iteration  as  follows: 

1.  Calculate  downstream  static  enthalpy  from  energy  equation. 

2.  Iterate  in  subroutine  TOFENH  for  temperature,  gamma  and 
gas  constant. 

3.  Calculate  downstream  pressure  from  continuity  and  equation  of  state. 

4.  Check  to  see  if  resultant  pressure  satisfies  the  Rayleigh  line  equa¬ 
tion.  If  not,  increment  the  downstream  velocity  and  repeat  steps  1 
t  h  r  oug  h  4 . 

5.  When  the  iteration  is  complete,  the  pitot  pressure  is  determined 
from  the  downstream  conditions. 
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SUBROUTINE  NAME:  OUT 


DESCRIPTION 

OUT  writes  the  calculated  data  for  data  points  along  with  the  corre¬ 
sponding  title  and  headings. 

CALLING  SEQUENCE 

CALL  OUT  (II,  I2,K, KIWI, K1W2) 

where  II,  12  refer  to  the  point  numbers  of  the  points  to  be  output  (any  number 
of  points  may  be  output  at  one  time.  K  represents  the  current  normal  line 
(takes  on  the  value  1  or  2). 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CONTRL/ 
COMMON /DATAR/ 
COMMON  /GASCON/ 
COMMON/HEAD/ 
COMMON/PART  PI/ 
COMM  ON/PA  RTP2/ 
COMMON/GAPPA/ 

common/writpt  / 

COMMON/TEMPER/ 

COMMON/FSTAG/ 

COMMON/CRITER/ 

COMMON/TOTAL/ 


COMMON/CHEMCN/ 

COMMON/CHEMXX/ 

COMMON/GASDAT/ 

POFEM 

PAGE 

PFP 

THERMO 

PPATPT 

NORSCK 

VEMAG 

SPCTX 

ESHOCK 


METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME:  OUTBIN 


DESCRIPTION 

This  subroutine  writes  the  calculated  normal  data  on  the  binary  output 
tape.  This  is  done  for  any  number  of  data  points. 

CALLING  SEQUENCE 

CALL  OUTBIN  (11,12,  JK,  KIWI,  K1W2) 

where  11,12  identifies  the  range  of  points  to  be  written  on  tape  (II  is  first 
point,  12  is  last).  JK  represents  the  current  characteristic  line  (1  or  2). 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/TAPRIT/ 

COMMON/DA  TAR/ 

COMMON/FORCE/ 

COMMON/GAPPA/ 

COMMON/PAR  TP  1/ 

COMMON/PARTP2/ 

COMMON/CONTRL/ 

COMMON/GLOBAL/ 

COMMON/AUX/ 

MAX  TIM 
PFP 

TEMTAB 

METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME:  OVEREX 


DESCRIPTION 

OVEREX  solves  for  the  shock  angle  at  the  nozzle  lip  when  the  flow  is 
over  expanded.  Provisions  are  made  to  calculate  the  shock  angle  for  an  upper 
or  lower  lip  point.  Real  gas  effects  are  considered  in  calculating  flow  prop¬ 
erties  downstream  of  the  shock. 

CALLING  SEQUENCE 

CALL  OVEREX  (PB ,  I,  K,  ITYPE1 ,  K1W1.K1W2) 

where  PB  is  the  freestream  pressure  at  the  boundary;  I,K  defines  the  location 
of  the  lip  point  in  the  characteristic  data  (PHO)  array  and  ITYPE1  indicates 
whether  an  upper  (=2)  or  lower  (  =  1)  boundary  is  to  be  considered. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/DA  TAR/ 

COMMON/PARTP1/ 

COMM  ON/PAR  TP2/ 

EMOFV 

ESHOCK 

THERMO 

POFEM 

ITSUB 

PFP 

UOF  V 

IDMPFP 

ERRORS 

METHOD  OF  SOLUTION 

For  the  first  pass  through  the  solution,  an  initial  shock  angle  is  assumed. 
This  shock  angle  is  perturbed  in  ITSUB  and  the  result  used  to  calculate  flow 
properties  including  static  pressure  downstream  of  the  shock.  The  calculated 
static  pressure  is  compared  with  the  boundary  pressure  to  determine  if  the 
desired  convergence  has  been  obtained.  If  the  solution  has  not  converged  ITSUB 
is  called  again  and  the  above  procedure  is  repeated. 
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SUBROUTINE  NAME;  PAGE 


DESCRIPTION 

This  subroutine  page  ejects  and  writes  the  header  comments  and  page 
number  on  each  page  of  printout. 

CALLING  SEQUENCE 

CALL  PAGE  (LCNT,  K  1 W  1 ,  K  1 W2) 

where  LCNT  is  a  counter  which  monitors  the  number  of  lines  of  printed  out¬ 
put  per  page.  LCNT  is  reinitialized  in  PAGE. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/HEAD/ 

COMMON /CONTRL/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 

When  the  maximum  number  of  lines  per  page  (55)  have  been  output, 
PAGE  is  called  to  page  eject.  It  then  prints  the  identifying  information  and 
the  page  number,  increments  the  page  number  and  reinitializes  the  line 
counter. 
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SUBROUTINE  NAME:  PARTIN 
DESCRIPTION 

This  subroutine  reads  in  gas  and  particle  property  startline  data.  Data 
is  read  in  lrom  cards  or  tape. 

CALLING  SEQUENCE 

CALL  PARTIN  (NSETS,  NTAPE) 


where 

NSETS  is  the  number  of  startline  points  where  particles 
are  present 

NTAPE  is  the  FORTRAN  unit  to  read  the  startline  data 
from  (=7  for  cards) 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/ PARTPl/ 
COMMON/' PARTP2/ 
COMMON /IN  PUT/ 
COMMON/CONTRL/ 

common/massc/ 

COMMON/WT/ 
COMM  ON /  PS  LD / 
COMM  ON/ ONTSPT/ 
COMMON/GASCON/ 
COMMON/TEMPER/ 
COMMON /NSF/ 
COMMON/LI  PCOM/ 


COMMON/PCTC/ 

COMMON/GASDAT/ 

COMMON/VISEX/ 

COMMON/FSTAG/ 

RGVOFM 

UOFEM 

TOFEM 

POFEM 

SPCTX 

THERMO 

IDMPFP 

PFP 


METHOD  OF  SOLUTION 

Tiit  gas  startline  points  are  read  starting  with  the  axis  point  and  input 
up  to  the  boundary,  while  the  particle  startline  data  is  input  starting  with  the 
last  limiting  streamline  or  last  gas  startline  point  and  input  down  to  the  axis. 
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SUBROUTINE  NAME:  PART  PH 


DESCRIPTION 

This  subroutine  reads  and  sets  up  the  data  table  of  particle  temperature 
versus  enthalpy.  This  routine  also  prints  out  the  particle  drag  tables  as  well 
as  the  temperature  versus  enthalpy  tables, 

calling  sequence 

CALL  PARTPH  (IPFTOC,  LCT,  NGS) 

where 

IPFTOC  =  zero  for  two  phase  case 
=  10000  for  gas  only  case 
LCT  =  line  counter  for  printout  purposes 
NGS  is  a  dummy  variable 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/GASTPE/ 

COMMON/CONTRL/ 

COMMON/TPEH/ 

COMMON/GASDAT/ 

COMMON/DR  AGC  F/ 

COMM  ON /PAR  TP2/ 

COMMON /DATAR/ 

COMMON/TFLAG/ 

PAGE 

METHOD  OF  SOLUTION 
Not  applicable. 
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FUNCTION  NAME:  PFP 
DESCRIPTION 

This  function  computes  the  particle  property  data  storage  location  and 
retrieves  data  from  the  PFPARY  array. 

CALLING  SEQUENCE 

=  PFP(I,  J,K,L) 

where 

I,  J,K,  L  are  indices  used  to  determine  the  storage  location. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COM  MON/ PAR  TP  1/ 

COMMON/PAR  TP2/ 

COMMON/PARTP3/ 

RWU 

METHOD  OF  SOLUTION 

The  particle  property  data  storage  location  is  computed  using  the 
following  relation 

IX  =  I  +  5  *  (J-l  +  10  *  (K - 1  +  100  *  (L-l))) 
and  retrieved  using  the  relation 

PFP  =  PFPARY  (IX) . 
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SUBROUTINE  NAME;  PHASE  I 
DESCRIPTION 

This  subroutine  provides  the  necessary  controlling  logic  for  the  com¬ 
plete  flowfield  calculation.  Proper  subroutines  are  called  to  handle  different 
kinds  of  calculation. 

CALLING  SEQUENCE 

Call  PHASE  1  (IFINIS,  K2W1,  K2W2) 
where  IFINIS  is  set  to  zero. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CONTRL/ 

OUTBIN 

COMMON/DROP/ 

SPCTX 

COMMON/GASCON/ 

PPATPT 

COMMON  /NSF  / 

LIMITS 

COMMON/DATAR/ 

BOUND 

C  OMMON/G  APPA/ 

B  OUNDA 

COMMON/INPUT/ 

PRANDT 

COMMON/G  LOB  AL/ 

UOF  V 

COMMON/STEPC/ 

ITERM 

COMMON/PARTP 1/ 

TURN 

COMMON/TEMPO  1/ 

HYPER 

C0MM0N/TEMP02/ 

POFEM 

COMMON/TOTAL/ 

EMOFV 

COMMON/OVERLA/ 

RGMOFP 

COMMON/CRITER/ 

VOFEM 

COMMON /INT  EU  / 

THETPM 

COMMON/PSEC/ 

TOFEM 

COMM  ON/TEMPO  3/ 

SOKSOL 

COMMON/FREE/ 

STRNOR 

COMMON/XXSH/ 

ERRORS 

COMMON/BPRESW/ 

MAXTIM 

COMMON/PCTC/ 

MASSCK 

C  OMMON /CHEMXX  / 

CHECK 

COMMON/VISEX/ 

PFP 

COMMON/EXPER/ 

IDMPFP 

COMMON/GASDAT/ 

INRSCT 

COMMON/FSTAG/ 

SOKINT 

OUT 

FREEMC 

THRUST 

THERMO 

PRFRBD 

EXPCOR 
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METHOD  OF  SOLUTION 


This  subroutine  makes  most  of  the  tests  to  determine  what  kind  of 
calculation  should  be  carried  out  for  the  point  under  consideration.  The 
point  may  be  a  regular  field  point,  solid  or  free  boundary  point,  left-  or 
right-running  shock  points,  incident  shock  points  or  reflected  shock  points 
on  the  solid  boundary,  attached  shock  points  on  the  solid  boundary,  shock 
wave  intersection  points  (opposite  family),  slipline  points,  incident  shock 
points  and  expansion  corner  points  at  the  free  boundary,  expansion  corner 
points  at  solid  boundary,  etc. 
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SUBROUTINE  NAME:  PHYSOL 
DESCRIPTION 


This  subroutine  finds  the  reference  properties  on  the  characteristic 
line  so  that  the  compatibility  equations  can  be  used  to  calculate  the  flow 
velocity  and  angle  of  a  point  downstream  of  the  known  reference  normal 
line  (or  surface). 


CALLING  SEQUENCE 

CALL  PHYSOL  (PRET,  IS,  JS,  IN,  KN,  I  DIR,  IF  LAG,  KIWI,  K  1W2,  PIS, 
PIN,  PM,  PM  1 ,  I  PM ,  IPM  1 ,  KPM,  JAG,  P,  ARGN,  ISLIP,  KSLIP,  I  FIX,  1141, 
IQUAD.  H,  SAVE,  DP) 


where 


PR  ET (8) 

is  the  storage  array  of  reference  properties  found 

(IS,  JS) 

is  the  point  on  the  reference  normal  line  (J-line), 
normally  on  the  same  streamline  as  the  one  under 
consideration 

(IN,  KN) 

is  a  known  point  just  below  the  point  under  considera¬ 
tion  on  the  new  normal  line  (K-line) 

IDIR 

indicates  if  a  I -characteristic  (  =  +  l)  or  a  II -characteri Stic 
(  =  -l)  is  being  considered 

I  FLAG 

is  a  control  indicator  to  return  the  proper  message  to 
the  calling  subroutine  in  order  that  a  proper  measure 
can  be  taken 

PIS (8) 

array  containing  the  flow  properties  of  the  streamline 
base  point 

PIN  (8) 

array  containing  the  new  flow  properties  of  the  stream¬ 
line  point 

PM  (8) 

array  containing  the  flow  properties  of  point  IPM  which 
brackets  the  characteristic  intersection 

PM I  (8) 

array  containing  the  flow  properties  of  point  IPM1  which 
brackets  the  characteristic  intersection 

IPM,  IPM  1 

the  point  numbers  of  the  two  adjacent  points  on  the  old 
data  surface  which  brackets  the  characteristic  inter¬ 
section 
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KPM 


JAG 

P(8) 

ARGN 

ISLIP 

KSLIP 

IFIX 

1141 

IQUAD 

H 

SAVE(8) 

DP(8) 


if  the  characteristic  line  intersects  a  boundary,  shock 
or  slipline  KPM  is  the  point  number  on  the  new  data 
surface  which  bounds  the  intersection 

the  point  immediately  above  or  below  the  streamline 
base  point.  This  point  is  used  to  detect  the  presence 
of  a  slipline. 

array  in  which  the  characteristic  intersection  flow 
properties  are  stored 

the  angle  of  the  normal 

flag  which  indicates  if  not  enough  data  is  known  to 
obtain  the  characteristic  intersection 

if  KSLIP  is  a  1  the  characteristic  has  intersected  a 
slipline 

index  used  within  PHYSOL  which  indicates  if  the  two 
points  which  bracket  the  characteristic  intersection 
have  been  found 

flag  which  indicates  if  the  characteristic  intersection 
is  below  the  first  point  or  above  the  last  point  on  the 
old  data  surface 

1  -  interpolation  is  being  made  on  R 

2  -  interpolation  is  being  made  on  X 

interpolation  factor  between  point  1PM  and  IPM1 
necessary  to  obtain  the  characteristic  intersection 

array  which  is  used  to  retain  data  from  previous 
intersections 

array  which  contains  the  flow  property  differences 
between  points  IPM  and  IPMl. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/POINTC/ 

COMMON/GASCON/ 

COMMON/TEMPER/ 

COMMON/FSTAG/ 

COMMON/ chemxx/ 

COMMON/CONTRL/ 

COMMON/DATAR/ 

COMMON /SLIPPT/ 

C0MM0N/TEMP02/ 

COMMON /PART  Pl/ 


COMMON/PAR  TP2/ 

COMMON/GAPPA/ 

COMMON/DROP/ 

COMMON/CRITER/ 

BOUND 

THERMO 

INRSCT 

ITSUB 

PFP 

UOF  V 

GAPPBI 

PPATPT 
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METHOD  OF  SOLUTION 


The  characteristic  line  is  drawn  from  the  point  under  consideration  to 
intersect  the  known  upstream  reference  normal  line.  The  reference  prop¬ 
erties  of  this  intersection  are  interpolated  from  the  two  known  points  on  the 
reference  normal  line.  Subroutine  ITSUB  and  the  average  quantities  are  used 
to  obtain  a  better  approximation  of  the  reference  properties. 

If  the  reference  properties  are  not  readily  available,  IFLAG  is  set  to 
2,  and  the  reference  properties  are  then  assumed  to  enable  the  calculation 
to  be  continued.  Normally,  the  calculation  of  this  point  is  repeated  after¬ 
ward  to  obtain  the  correct  reference  properties  for  the  calculation  of  the 
new  point  under  consideration. 
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SUBROUTINE  NAME;  PHYZOL 
DESCRIPTION 


This  subroutine  handles  the  downstream  shock  points  and  wall  point 
near  the  corner  of  a  reflected  or  an  attached  shock  wave. 


CALLING  SEQUENCE 


CALL  PHYZOL  (P5I,  P6I,  P4I,  KANT,  IS,  JS,  IN,  KN,  ANGLE, 
IF  LAG,  ITYPE,  KIWI,  K1W2) 

where 


P5I(8) 

P6I(8) 

P4I  (8) 

KANT 

(IS,  JS) 
(IN,  KN) 

ANGLE 

I  FLAG 

ITYPE 


is  the  storage  array  of  the  shock  downstream  point  near 
the  corner  where  the  shock  reflected  or  attached 

is  the  storage  array  of  the  shock  downstream  point  at 
the  point  where  shock  reflected  or  attached 

is  the  storage  array  of  the  intersection  of  the  wall  with 
the  average  normal  drawn  from  point  P5I 

1.  first  time  calculation 

2.  iterative  calculation 

denotes  the  storage  location  of  point  P6I 

denotes  the  storage  location  of  the  shock  upstream  point 
opposite  of  point  P5I 

is  the  angle  between  the  shock  wave  and  the  axial 
coordinate 

is  a  control  indicator  for  sending  in  and  out  the  proper 
information  in  order  that  corresponding  measures  can 
be  taken 

indicates  if  a  strong  or  weak  shock  is  being  considered 
and  where  the  shock  is  reflected  or  attached 

strong  shock  51  (lower  wall)  52  (upper  wall) 
weak  shock  151  (lower  wall)  152  (upper  wall) 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/DA  TAR/ 
COMMON/PHISOL/ 
COMMON  /  SLIPPT  / 
COMMON/TEMPO  1/ 
COMMON/CONTRL/ 


BOUNDA 

CARCTR 

ERRORS 

INRSCT 

THERMO 

UOFV 
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ML'TIIOD  OF  SOLUTION 


The  shock  points  at  the  wall  (where  the  shock  reflected  or  attached) 
are  known.  The  shock  upstream  point  slightly  downstream  of  the  shock 
attachment  point  is  also  calculated,  though  the  results  may  not  be  the  final 
ones.  The  oblique  shock  relations  are  used  to  calculate  the  downstream 
point  P5I.  Through  this  point  an  average  normal  line  is  drawn  to  intersect 
the  wall  (BOUNDA).  The  flow  properties  of  this  point  P4I  are  initially 
assumed  to  be  the  same  as  those  of  point  P6I.  Point  P4I  is  treated  as  a 
wall  point.  The  velocity  of  point  P5I  is  then  recalculated  with  the  shock 
downstream  properties;  this  newly  calculated  velocity  is  then  compared 
with  the  velocity  calculated  with  the  oblique  shock  relations.  Shock  strength 
is  adjusted  until  the  velocity  of  point  P5I  calculated  by  both  methods  converge 
to  the  same  value.  The  final  results  of  the  shock  points,  as  well  as  the  wall 
point  downstream  of  the  attached  or  reflected  shock,  are  then  returned  to  the 
calling  subroutine.  See  Volume  I,  Section  6.8  for  the  details  of  calculation. 
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SUBROUTINE  NAME:  PLMOUT 
DESCRIPTION 

PLMOUT  prints  the  data  read  by  PLUMIN. 

CALLING  SEQUENCE 

CALL  PLMOUT  (KP,  LCNT,  K1W1.K1W2) 

where  KP  is  a  control  parameter  set  in  PLUMIN,  and  LCNT  is  the  printed 
line  counter. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CONTRL/ 

common/ cutfo/ 

COMMON/GASDAT/ 
COMMON/DATAR/ 
COMM  ON /GASCON/ 
COMMON /HEAD/ 
COMMON /INPUT/ 
COMMON/GAPPA/ 
COMMON/PARTP1/ 
COMMON/PARTP2/ 
COMM  ON/M  ASSC/ 
COMMON/PARTTP/ 
COMMON/ PS  LD/ 
COM  MON/DR  AGC  F/ 


COMMON/WT/ 

COMMON/STEPC/ 

COMM  ON/ WAFT/ 

COMMON/FREE/ 

COMMON/MOL/ 

COMMON/TAPRIT/ 

COMMON/FSTAG/ 

PAGE 

TAB 

IDMTAB 

EMOFV 

THERMO 

PFP 


METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME:  PLUMIN 


DESCRIPTION 


PLUMIN  reads  in  the  input  data  (input  via  cards)  necessary  to  perform 

the  streamline-normal  solution.  This  routine  provides  control  for  all  input 

functions  by  selectively  calling  pertinent  input  routines  and/or  the  transonic 
solution. 

CALLING  SEQUENCE 

CALL  PLUMIN  (K1W1.K1W2,  NTAPE,  NSETS,  RRT,  XSHSV,  ITRS) 
UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CONTRL/ 

COMM  ON/CUT  FO/ 

COMMON/DATAR/ 

COMM  ON /GASCON/ 

COMMON/HEAD/ 

COMMON/INPUT/ 

COMMON/STEPC/ 

COMMON/TFLAG/ 

common/sigmb/ 

COMMON/VISEX/ 

COMMON/VARSL/ 

common/parttp/ 

COMMON/PARTP1/ 

COMMON/PARTP2/ 

COMMON /GAPPA/ 

COMMON/WRITPT/ 

COMM  ON/M  ASSC/ 

COMMON/BPRESW/ 

COMMON/SIGNAL/ 

METHOD  OF  SOLUTION 
Not  applicable. 


COMMON/LI  PCOM/ 

COMMON/DRAGCF/ 

COMMON/PS  LD/ 

COMMON/CRITER/ 

COMMON/WAFT/ 

COMMON/XXSH/ 

COMMON/FREE/ 

COMM  ON /MOL/ 

COMMON/TAPRIT/ 

COMMON/CHEMCN/ 

GASRD 

BOUND 

LIPIN 

AOASTR 

MASCON 

SETHTG 

PARTIN 

PART PH 
PLMOUT 
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FUNCTION  NAME:  POFEM 
DESCRIPTION 

This  function  computes  the  local  static  pressure  as  a  function  of  Mach 
number,  entropy  and  total  temperature  (ideal  gas,  two  phase  only). 

CALLING  SEQUENCE 

P  =  POFEM  (EM,  S,  KIWI, K1W2) 

where  P  is  the  resultant  static  pressure  found  from  the  Mach  number,  EM, 
and  entropy,  S.  NOTE:  The  appropriate  values  of  the  gas  properties  must 
be  stored  in  common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  /GASCON/ 

COMMON/TEMPER/ 

UTILITY  -  None 


METHOD  OF  SOLUTION 


Thermally  perfect  gas  relationships  are  used  to  find  the  pressure. 
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SUBROUTINE  NAME:  POFH 
DESCRIPTION 

This  routine  utilizes  the  tabulated  data  of  enthalpy  and  specific  heat  as 
functions  of  temperature  for  each  species  of  a  finite  rate  chemistry  case  to 
calculate  pressure,  as  a  function  of  enthalpy  for  a  real  gas,  in  a  Prandtl- 
Meyer  expansion. 

CALLING  SEQUENCE 

CALL  POFH  (VF,  HT,  DELTA) 

where 

VF  is  the  final  velocity 
HT  is  the  total  enthalpy 
DELTA  is  the  flow  deflection  angle. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/GASCON/ 

COMMON/PCTC/ 

C  OMM  ON/EX  PER/ 

COMMON/C  PM  UK/ 

ITSUB 

METHOD  OF  SOLUTION 

The  routine  solves  for  pressure  by  incrementally  changing  the  flow  angle 
until  the  final  flow  angle  is  obtained.  At  each  increment  the  routine  determines 
new  gas  properties  from  the  tables  on  enthalpy  and  specific  heat  as  functions 
of  temperature,  then  uses  these  properties  for  the  next  increment.  The  result 
is  an  integration  of  the  flow  properties  through  the  angular  change,  DELTA. 
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SUBROUTINE  NAME:  PPATPT 


DESCRIPTION 

This  subroutine  calculates  and  stores  gas  and  particle  dependent  variables 
as  a  function  of  the  independent  flow  properties. 


CALLING  SEQUENCE 

CALL  PPATPT  (M.IC.KC,  VG,  THETA.  SG,  K2W 1,  K2W2,  KP,  ISKIP,  PG) 


where 


M 

IC 

KC 

VG 

THETA 

SG 

K2W 1 
K2W2 
KP 

ISKIP 


PG 


is  the  number  of  particle  sizes  present  at  the  point 

is  the  point  number  for  which  particle  and  gas  flow 
properties  are  to  be  calculated 

is  the  line  identification  flag 

is  the  gas  velocity  at  the  point 

is  the  gas  flow  angle  at  the  point 

is  the  gas  entropy  at  the  point 

is  a  dummy  variable 

is  a  dummy  variable 

is  the  temporary  array  storage  location  for  the 
particle  and  gas  flow  properties 

=  0  calculate  particle  properties  only 

=  20  calculate  gas  and  particle  properties 

-  40  calculate  gas  properties  only 

array  containing  the  point  independent  flow  properties 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/TFLAG/ 
COMMON/PAR  TPl/ 
COMMON/PARTP2/ 
COMMON/GAPPA/ 
COMMON/ONTSPT/ 
COMMON /GASCON/ 
COMMON/CONTRL/ 
COMMON/CPMUK/ 


COMMON/VISEX/ 
COMMON/TEMPER/ 
COMMON/FSTAG/ 
COMMON/DATAR/ 
COMMON/FREE/ 
COMMON /CRITER/ 
COMMON/PSLD/ 
COMMON  /XXSH/ 
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COMMON /DRAGCF  /  POFEM 

COMMON/PCTC/  PFP 

THERMO  T EM TAB 

TOF  V  DRAGMR 

EMOFV  DRAGCP 


METHOD  OF  SOLUTION 

The  routine  is  entered  knowing  the  gas  independent  variables  (V,  S,  OF 
or  H,^)  and  particle  independent  variables  (u,  v,p,h).  The  gas  dependent 
variables  (T,  P,  p,  p  ,C  ,  Pr)  and  particle  dependent  variables  (R^,  drag  and 
heat  transfer  terms)  are  calculated  and  stored  for  use  in  other  parts  of  the 
code. 
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SUBROUTINE  NAME:  PRANDT 


DESCRIPTION 

This  subroutine  computes  the  Prandtl-Meyer  expansion  angle  lor  a 
given  boundary  angle  and  divides  this  angle  into  a  series  of  expansion  "rays" 
(uiless  the  number  of  rays  has  been  specified  in  the  input).  The  flow  prop¬ 
erties  at  each  angular  increment  are  set  and  stored  in  the  PHO  array. 


CALLING  SEQUENCE 

CALL  PRANDT  (I,  J,  THETAB,  NPM,  IFLAG,  ITY  PE,  K  1  Wl.  K  1W2) 

where 

1  represents  the  corner  point 

J  indicates  a  characteristic  line 

THETAB  is  the  boundary  angle 

NPM  =  number  of  Prandtl-Meyer  increments 
(calculated  in  PRANDT) 

IFLAG  is  an  error  flag 

ITYPE  indicates  if  upper  (2)  or  lower  (1)  boundary 
is  being  considered 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/CRiTER/ 

THERMO 

COMMON/DATAR/ 

THETPM 

COMMON/GASCON/ 

UOFV 

COMMON /ST  EPC/ 

EMOFV 

COMMON/CONTRL/ 

TOF  V 

COMMON/PCTC/ 

POFEM 

COMMON/CPMUK/ 

TOFH 

COM  MON /PART  Pi/ 

SPCTX 

COMMON/ PARTP2/ 

PFP 

common/fstag/ 

IDMPFP 

common/chemxx/ 
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METHOD  OF  SOLUTION 


The  routine  is  entered  with  known  flow  properties  at  the  point  of  dis¬ 
continuity  along  with  the  known  corner  and  boundary  flow  angles.  From  the 
known  angles  and  the  preset  number  of  degrees  per  ray,  the  number  of  incre¬ 
ments  is  calculated.  The  distribution  of  P-M  rays  is  then  adjusted  by  a 
weighting  function.  Subroutine  THETPM  is  entered  with  known  initial  condi¬ 
tions  and  the  number  of  degrees  per  ray  and  returns  with  a  velocity.  These 
new  conditions  are  then  set  into  the  PHO  array.  See  Volume  I,  Sections  5 
and  6.9,  for  the  details  of  calculation. 
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SUBROUTINE  NAME:  PEERED 
DESCRIPTION 

This  subroutine  calculates  the  flow  properties  at  the  intersection  of  a 
particle  limiting  streamline  and  a  plume  boundary. 

CALLING  SEQUENCE 

CALL  PRFRBD  (IS,  JS,  IN,  KN,  I,  K) 

where 

IS  =  point  number  of  the  old  (J)  data  surface  plume  boundary 
JS  =  line  indicator  of  the  old  data  surface 

IN  =  point  number  of  the  old  (J)  data  surface  limiting  streamline 
KN  =  line  indicator  of  the  old  data  surface 

I  =  point  number  of  the  new  (K)  data  surface  limiting  streamline 
K  -  line  indicator  of  the  new  data  surface. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/DATAR/ 
COMMON/ PART  PI/ 
COM  MON/ PART  P2/ 
COMMON/GAPPA/ 
COMMON  ,/SLIPPT/ 
COMMON /ONTSPT 


COMMON/CON  TRL/ 

COMMON/FSTAG/ 

PFP 

INRSCT 

IDMPFP 

PPATPT 


METHOD  OF  SOLUTION 

Once  th--  new  data  surface  has  been  completed  and  it  has  been  deter¬ 
mined  that  a  particle  limiting  streamline  has  crossed  the  plume  boundary, 
the  location  of  the  intersection  is  determined  by  the  intersection  of  a  line 
passing  through  the  old  and  new  limiting  streamline  points.  This  establishes 
two  interpolation  factors.  One  along  the  limiting  streamline  and  one  along 
the  plume  boundary.  Gas  properties  at  the  intersection  point  are  interpolated 
for  between  the  two  plume  boundary  points  and  particle  properties  are  inter¬ 
polated  for  bi-tween  the  two  limiting  streamline  points.  The  interpolated  point 
and  properties  are  then  used  as  the  plume  boundary  point  for  the  new  line  and 
the  calculation  for  the  next  line  is  then  initiated. 
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FUNCTION  NAME:  RGMOFP 
DESCRIPTION 

This  subroutine  finds  Mach  number  as  a  function  of  pressure,  O/F  ratio 
(or  total  enthalpy)  and  enfopy.  The  difference  between  this  routine  and 
EMOFP  is  that  in  this  case  the  gas  properties  are  not  known  prior  to  entry. 

CALLING  SEQUENCE 

EM  =  RGMOFP  (OF,S,P,K2Wl,KlWl) 

where  EM  is  the  resultant  Mach  number,  P  is  the  local  static  pressure,  S  is 
the  local  entropy,  and  OF  is  the  local  O/F  ratio  (or  total  enthalpy). 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CONTRL/ 

COMMON /GASCON/ 

COMMON /ISEA/ 

COMMON /GASDAT/ 

POFEM 

EMOFV 

ITSUB 

VOFEM 

EMOFP 

ERRORS 

TAB 

THERMO 

METHOD  OF  SOLUTION 

The  real  gas  tables  have,  as  independent  variables,  OF  ratio  (total 
enthalpy),  entropy  and  velocity.  If  the  velocity  is  not  known,  an  iterative 
solution  must  be  employed  to  find  Mach  number  from  pressure,  entropy, 
and  OF  ratio  (or  total  enthalpy). 
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FUNCTION  NAME:  RGVOFM 
1)  L'SCK  I  FTI  ON 

This  subroutine  finds  velocity  as  a  function  of  Mach  number,  entropy 
and  O/F  ratio  (or  total  enthalpy).  The  difference  between  this  routine  and 
VOFEM  is  that  the  gas  properties  are  not  known  prior  to  entry. 

CALLING  SEQUENCE 

V  =  RGVOFM  (OF,  S,  EM,  K2W,  K1W) 

where  V  is  the  resultant  velocity  computed  from  O/F  ratio  or  total  enthalpy, 
OF,  entropy,  S,  and  Mach  number,  EM. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/C  ONTRL/ 

C  OMMON /CHEMCN  / 

COMMON /GASD  AT/ 

COMMON /GASCON/ 

THERMO 

TAB 

VOFEM 

EMOFV 

ITSUB 

ERRORS 

METHOD  OF  SOLUTION 

The  real  gas  tables  have,  as  independent  variables,  OF  ratio  (or  total 
enthalpy),  entropy  and  velocity.  If  the  velocity  is  not  known,  an  iterative 
solution  must  be  employed  to  find  the  velocity  from  Mach  number,  OF  ratio 
(or  total  enthalpy)  and  entropy. 
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FUNCTION  NAME:  RHOFEM 


DESCRIPTION 

RHOFEM  computes  the  local  density  as  a  function  of  Mach  number  and 
entropy . 


CALLING  SEQUENCE 

RHO  =  RHOFEM  (EM,  S,  KIWI,  K1W2) 

where  RHO  is  the  resultant  density  found  from  local  Mach  number  and  local 
entropy.  NOTE:  The  appropriate  values  of  the  gas  properties  must  be 
stored  in  common  upon  entry  to  this  routine. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/GASCON/ 

POFEM 


METHOD  OF  SOLUTION 

Thermally  perfect  gas  relationships  are  used  to  find  the  density. 


p  =  PQ  (l  ♦  M2) 


<  l/y-i) 
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SUBROUTINE  NAME:  RITE 
DESCRIPTION 

This  subroutine  tells  the  program  user  (in  no  uncertain  terms)  that  he 
has  made  a  fatal  error.  The  next  executable  statement  is  a  STOP. 

CALLING  SEQUENCE 

CALL  RITE(I) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
None 

METHOD  OF  SOLUTION 
Not  applicable. 
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FUNCTION  NAME:  ROTERM 


DESCRIPTION 


ROTERM  computes  the  geometrical  factor,  Fj,  Fjj,  used  in  the  axisym- 
motrie  term  of  the  compatibility  equation  and  as  an  interpolation  parameter. 


CALLING  SEQUENCE 


F  =  ROTERM  (THETA,  DELTA,  EMU,  R3,  RI,  K2W 1 ,  K2W2) 

w  h  e  r  e 

THETA  is  the  flow  angles  of  the  known  points  (9j  or  9^) 

DELTA  defines  the  quadrant  being  considered 

EMU  is  the  Mach  angles  of  the  known  points  (p^  or  p^) 

R3  is  the  coordinates  of  the  new  point  (r^j  or 
RI  is  the  coordinates  of  the  known  point  (Tj  or  x^) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
None 

METHOD  OF  SOLUTION 

The  method  -  of -characteristic  s  solution  uses  this  routine  to  determine 
a  coefficient  needed  in  its  solution.  This  term  (see  Eq.  (6.29),  Section  6  of 
Ref.  4)  can  be  written  as; 


sinp  |  (dm  -  d) 


sin(jr/4  +  6(0  +  M  -  jt/4)) 


By  the  proper  choice  of  d(r  or  x),  6  and  the  sign  of  p,  indeterminant  forms 
are  eliminated  in  the  evaluation. 
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SUBROUTINE  NAME:  RWU 
DESCRIPTION 

This  routine  is  a  MSFC  Univac  1108  system  routine  used  to  read  and 
write  from  FASTRAN  files. 

CALLING  SEQUENCE 

CALL  RWU  (KSUNIT,  A  (I,  J) ,  NS,  KSEC ,  IFCN ,  ISTAT,  NWT) 

where 

KSUNIT  is  the  unit  number  of  the  FASTRAN  file 

A(I,  J)  is  the  array  being  read  or  written 

NS  is  the  number  of  entries  in  the  array 

KSEC  is  the  location  in  the  file  of  the  required  data 

IFCN  indicates  to  read  data  (  =  lf>)  or  write  data  (=8) 

ISTAT  is  a  status  indicator 
NWT  is  an  output  indicator 

UTILITY  ROUTINES 
None 

METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME:  SETHTG 
DESCRIPTION 

This  routine  computes  the  gas  total  enthalpy  for  a  case  when  finite  rate 
chemistry  is  being  used  and  the  startline  is  to  be  generated  by  the  program 
for  gaseous  flows  only. 

CALLING  SEQUENCE 

CALL  SETHTG 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMM  ON /VI  SEX/ 

COMMON/PC  TC/ 

COMMON/GASCON/ 

COMMON  /  CHEMCN/ 

COMMON  /  CHEMXX/ 

COMMON/LI  PC  OM/ 

COMMON /SIGMB/ 

common/gasdat/ 

TKEY 

THERMO 

METHOD  OF  SOLUTION 

The  routine  interpolates  for  the  flow  properties  at  the  specified  start - 
line  Mach  number  using  the  equilibrium  thermodynamic  data  tables.  The 
resultant  temperature  and  velocity  are  then  used  to  obtain  the  flow  properties 
from  the  species  enthalpy  and  specific  heat  tables.  The  total  enthalpy  is  cal¬ 
culated  from  the  static  enthalpy  and  velocity.  This  procedure  is  used  to 
ensure  property  compatibility  when  transferring  from  the  equilibrium  tables 
to  the  species  finite  rate  tables. 
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SUBROUTINE  NAME:  SITER 
DESCRIPTION 


This  routine  determines  the  entropy  of  the  gas  knowing  the  velocity, 
static  pressure  and  total  enthalpy  or  O/F  ratio. 


CALLING  SEQUENCE 

CALL  SITER (HG,  S,  EM,  V,  PC,  PL) 

where 

HG  is  the  known  total  enthalpy  or  O/F  ratio 

S  is  the  gas  entropy 

EM  is  the  gas  Mach  number 

V  is  the  known  gas  velocity 

PC  is  the  gas  total  pressure 

PL  is  the  known  gas  static  pressure 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/GASCON/ 

EMOFV 

ITSUB 

POFEM 

THERMO 


METHOD  OF  SOLUTION 


This  subroutine  iterates  on  the  gas  entropy  until  the  guessed  entropy, 
known  velocity  and  enthalpy  results  in  a  static  pressure  which  is  within  the 
convergence  criteria  of  the  known  static  pressure. 
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SUBROUTINE  NAME:  SLDP 


DESCRIPTION 

This  subroutine  finds  the  solutions  to  a  set  of  N  simultaneous  linear 
equations . 

CALLING  SEQUENCE 

CALL  SLDP(X,  A,  N) 

where 

X  is  the  solution  matrix 

A  is  the  coefficient  matrix 

N  is  the  order  of  the  coefficient  matrix 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
None 

METHOD  OF  SOLUTION 

The  set  of  N  simultaneous  equations  are  solved  using  a  Gauss-Jordan 
reduction  scheme  with  the  diagonal  pivot  strategy. 


3-217 

LOCKHEED  •  HUNTSVILLE  RESEARCH  &  ENGINEERING  CENTER 


SUBROUTINE  NAME:  SLPLIN 
DESCRIPTION 

This  subroutine  handles  the  calculation  of  the  points  on  the  slip  line. 
Two  points  are  assigned  to  every  slip  line. 

CALLING  SEQUENCE 

CALL  SLPLIN  (IS,  JS,  IN ,  KN ,  IFLAG ,  ICAUNT,  K 1W2,  K2W2) 


where 

IS,  JS  is  the  storage  array  of  the  known  point  on  the  lower  side  of 
the  slip  line  of  the  reference  normal  line  (J-line) 

IN,  KN  is  the  storage  array  of  the  known  point  below  the  slip  line 
on  the  current  normal  (K-line) 

IFLAG  is  a  control  indicator  for  sending  in  and  out  necessary 
mes  sages 

ICAUNT  indicates  the  status  of  the  iterative  solution 

0  -  first  time  calculation  of  a  particular  slip  line 

1  -  calculated  results  converged 

2  -  calculation  completed  but  not  final 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON /CONTRL/ 

EMOFV 

common/criter/ 

ERRORS 

COMMON/DATAR/ 

INRSCT 

COMMON/DROP/ 

ITSUB 

C  OMM  ON  /G  ASC  ON  / 

PHYSOL 

COMMON/SLIPPT 

POFEM 

CARCTR 

METHOD  OF  SOLUTION 

The  slipline  points  location  is  found  by  the  usual  manner  as  one  of  the 
interior  points,  and  their  flow  properties  are  assumed  initially  to  be  identical 
to  those  of  the  corresponding  points  on  the  reference  normal  line.  The  velocity 
of  the  lower  side  point  of  the  slipline  is  calculated  with  the  aid  of  subroutines 
PHYSOL  and  CARCTR  by  using  the  II-characteristic.  Pressure  is  then  cal¬ 
culated  with  subroutine  POFEM. 


3-218 


LOCKHEED  •  HUNTSVILLE  RESEARCH  A  ENGINEERING  CENTER 


Letting  the  upper  side  point  of  the  slipline  have  the  same  flow  angle  as 
the  lower  side  point;  the  velocity  of  the  upper  side  point  can  be  calculated  with 
the  I-characteristic.  Pressure  is  then  calculated. 

The  pressure  calculated  for  the  slipline  points  is  compared.  The  flow 
angle  is  adjusted,  if  necessary,  until  identical  pressure  is  attained  on  both 
sides  of  the  slipline. 

See  Volume  I,  Section  6.10  for  the  details  of  the  calculation. 


3-219 


LOCKHEED  ■  HUNTSVILLE  RESEARCH  &  ENGINEERING  CENTER 


SUBROUTINE  NAME:  SOKFLX 
DL'SCRl  PTION 

This  subroutine  solves  for  the  flow  properties  downstream  of  a  reflected 
shock  know  mu  the  turning  angle  and  the  reflected  shock  upstream  flow  proper¬ 
ties.  Rcdl  gas  effects  are  considered  in  the  calculations. 

CALLING  SEQUENCE 

CALL  SOKFLX  (PD,  PU,  J,  K ,  IT YPE,  K 1 W 1 ,  K2W2) 

where 

PD  is  the  array  containing  the  downstream  flow  properties 
PU  is  the  array  containing  the  upstream  flow  properties 
J  is  the  line  identifier  for  the  upstream  flow  properties 
K  is  a  dummy  variable 
KIWI  is  a  dummy  variable 
K2W2  is  a  dummy  variable 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CRITER/ 

COMMON /GASCON/ 

COMMON/DATAR/ 

COMMON/CONTRL/ 

ESHOCK 
ITSUB 
ERRORS 
THERMO 
UOF  V 

METHOD  OF  SOLUTION 

The  routine  is  entered  with  the  flow  properties,  PU,  downstream  of  the 
incident  shock  and  a  known  flow  angle  downstream  of  the  reflected  shock.  An 
initial  shock  angle  is  assumed  and  a  flow  angle  is  calculated.  The  calculated 
flow  angle  is  compared  to  the  known  flow  angle  and  successive  iterations  on 
shock  angle  are  performed  until  the  flow  angle  difference  is  sufficiently  close 

to  zero. 
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SUBROUTINE  NAME:  SOKSOL 
DESCRIPTION 


This  subroutine  handles  the  calculation  of  different  types  of  shock  wave 
points.  The  following  cases  are  considered: 


1.  Right-running  shock 

2.  Left -running  shock 

3.  Right -running  shock  incident  on  a  lower  boundary 

4.  Left -running  shock  incident  on  an  upper  boundary 

5.  Right-running  shock  attached  at  upper  compression  corner 

6.  Left -running  shock  attached  at  lower  compression  corner 

7.  Right-running  shock  reflected  from  the  upper  boundary 

8.  Left -running  shock  reflected  from  the  lower  boundary 

9.  Right -running  weak  shock  at  the  upper  wall 

10.  Left -running  weak  shock  at  the  lower  wall 


(ITYPE  =  111) 
(ITYPE  =  112) 
(ITYPE  =  121) 
(ITYPE  =  122) 
(ITYPE  =  131) 
(ITYPE  =  1 321 
(ITYPE  =  141) 
(ITYPE  =  142) 
(ITYPE  =  151) 
(ITYPE  =  152) 


CALLING  SEQUENCE 

CALL  SOKSOL  (IN,  KN,  IS,  J,  ITOTK,  IF  LAG,  ITYPE,  K2W1.K2W2) 


where 


(IN,  KN): 

(IS,  J): 

ITOTK: 

IFLAG: 

ITYPE: 


storage  location  in  PHO  array  for  the  shock  upstream 
point  on  the  new  normal  (KN-line) 

storage  location  in  PHO  array  for  a  reference  point  on 
the  known  normal  (J-line) 

total  number  of  the  KN-line;  this  is  corrected  according 
to  the  type  of  9hock  point 

for  sending  in  and  out  necessary  messages 
denotes  type  of  shock  points  to  be  calculated 
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UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COM  MON/C R ITER,/ 

BOTJNDA 

COMMON/GASCON/ 

CARCTR 

COM  MON/DA  TAR,/ 

ERRORS 

COMMON/CONTRL/ 

ESHOCK 

COMMON/S  LIPPT/ 

INRSCT 

COM  MON/ PHIS OL/ 

ITSUB 

COMMON/TEMPOl/ 

PHYSOL 

C0MM0N/TEMP02/ 

PHYZOL 

COMMON/DROP/ 

PPATPT 

COMMON/GLOBAL/ 

STRNOR 

COMMON/GAPPA/ 

THERMO 

COMMON/FSTAG/ 

STRNOR 

COM  MON/PAR  TFP/ 

METHOD  OF  SOLUTION 

The  general  technique  for  handling  shock  wave  points  is:  (1)  find  the 
location  of  the  shock  points  and  the  flow  properties  of  the  shock  upstream 
point,  (2)  calculate  the  flow  properties  of  the  shock  downstream  point  with 
the  oblique  shock  relation  by  using  the  shock  upstream  properties,  (3)  cal¬ 
culate  the  flow  velocity  of  the  shock  downstream  point  with  >ne  characteristic 
line  by  using  the  shock  downstream  properties,  (4)  compare  the  velocity 
calculated  from  Steps  2  and  3,  and  (5)  if  the  velocity  is  not  the  same,  adjust 
the  shock  strength  and  repeat  the  process  from  Step  1. 


For  each  individual  case,  see  Vol.I  of  this  report  for  detail. 
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SUBROUTINE  NAME:  SPCTX 
DESCRIPTION 

This  routine  controls  the  input  and  output  from  a  FASTRAN  file  of  the 
chemical  species  in  a  finite  rate  chemistry  case. 

CALLING  SEQUENCE 

CALL  SPCTX  (IFCN.IPT,  ILINE,  JL1NE) 

where 

IFCN  indicates  to  write  (  =  1)  on  drum  or  to  read 
(=2)  from  drum 

IPT  is  the  flowfield  point  number 

ILINE  is  the  flowfield  line  number  (one  or  two) 

JLINE  specifies  to  store  the  data  in  SPCT(I,  1)  or 
SPCT(T,  2) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 

common/chemxx/ 

common/chemcn/ 

COMMON/CONTRL/ 

RWU 

METHOD  OF  SOLUTION 

The  routine  calculates  the  location  in  the  FASTRAN  file  where  the  de¬ 
sired  data  are  read  from  or  stored  in.  Subroutine  RWU  is  then  called  to  per 
form  the  indicated  operation. 
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SUBROUTINE  NAME:  STGMOI) 

DESCRIPTION 

This  subroutine  computes  the  gas  thermodynamic  properties  in  the 
transition  flow  regime. 

CALLING  SEQUENCE 

CALL  STGMOD  (I,  K) 


where 

I  =  the  point  number 
K  =  the  line  number 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /GASCON/ 

COMMON/FREE/ 

COMMON/GSV/ 

COMMON/FSTAG/ 

COMMON/DATAR/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 

The  routine  is  enter ed.  knowing  the  flow  regime,  Knudsen  number  and 
flow  properties  (M^,  T,  P,  V,  y,  S,  H,  p)  of  the  (I,  K)  point .  The  specific  heat 
ratio  is  then  determined  based  on  the  flow  regime. 

Continuum  —  y  is  same  as  entered 

Vibrational  mode  frozen  —  y  is  set  to  1.4 

Rotational  mode  frozen  —  y  is  set  based  on  a  curve  fit  of 
gamma  from  1.4  (vibrationally  frozen)  to  1.667  (free 
molecular)  based  on  Knudsen  number 

Trans lationally  frozen  (free  molecular)  —  y  =  1.667 

Once  the  local  gamma  is  determined  then  the  local  static  properties,  T,  P  and  V, 

are  used  to  determine  the  local  total  conditions  (T  ,  P  )  and  Mach  number. 

o  o 
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SUBROUTINE  NAME:  STRNOR 


1 )  ESC  Ul  tJTI  ON 

This  subroutine  handles  the  calculation  of  the  flow  properties  of  the 
point  in  question.  The  following  cases  are  considered: 


1.  Interior  point,  uses  I-  and  II-characteristic 

2.  Lower  solid  boundary  point,  uses  I -characteristic 

3.  Upper  solid  boundary  point,  uses  II-characteristic 

4.  Lower  free  boundary  point,  uses  I-characteristic 

5.  Upper  free  boundary  point,  uses  II-characteristic 


(IT  YPE  =  11) 
(ITYPE  =  21) 
(ITYPE  =  22) 
(ITYPE  =  31) 
(ITYPE  =  32) 


Except  those  ITYPE  numbers  shown  above,  sometimes,  one  of  the  following 
numbers  (500,  600,  700,  800,  900)  is  added  to  the  original  number  to  transmit 
more  information  to  this  subroutine. 


CALLING  SEQUENCE 


CALL  STRNOR  (Il.Kl.ISl,  JS1 ,  IN  1 ,  KN  1 ,  IFLAG,  ITYPE,  K  1W 1 ,  K  1W2) 


where 

II, K1 
IS  1 ,  JS1 

IN1.KN1 

IFLAG 

ITYPE 


is  the  storage  location  in  the  PHO  array  for  the  point 
in  question  on  the  new  normal  (K-line) 

is  the  storage  location  in  the  PHO  array  for  the  known 
reference  point  on  the  old  normal  (J-line);  normally 
this  point  is  on  the  same  streamline  as  the  point  II,  K1 

is  the  storage  location  in  the  PHO  array  for  the  known 
point  1 1,  K  1  on  the  new  normal  (K -  line) 

is  a  control  indicator  for  sending  in  and  out  necessary 
messages 

denotes  the  type  of  point  to  be  calculated 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON/FREE/ 
COMMON  /ISEA/ 
COMMON  /  CHEMCN/ 
COMMON/CHEMXY/ 


COMMON/CPMUK/ 
COMM  ON /RUE/ 
COMMON  /CHEMXX/ 
COMM  ON/TUI  PA/ 
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COMMON/CON  TRL/ 

COMMON/PARSTU/ 

COMMON/CRITER/ 

COMMON/FSTAG/ 

COMM  ON  /DA  TAR/ 

BOUND 

COM  MON /DROP/ 

IDMPFP 

COM  M  ON  /G  A  SC  ON  / 

PPATPT 

C  OM  M  ON  /  PHI  SOL/ 

FNEWTN 

COMMON /SLIPPT/ 

INRSCT 

COMMON /TEM  P02/ 

GAPPBI 

COMMON/TOTAL/ 

PHYSOL 

COMMON/CROSS/ 

SPCTX 

COMMON/ST  EPC/ 

PFP 

COM  M  ON/AVPROP/ 

RGMOFP 

COMM  ON/PAR  TP1/ 

COEFF3 

COMMON/PARTP2/ 

ROTERM 

COMMON  /GAPPA/ 

SLPLIN 

COMMON /ON  TSPT/ 

ME WENT 

COMM  ON/POIN  TC/ 

UOFV 

COMM  ON  /N  S  F/ 

VOFEM 

COMMON/OVER  LA/ 

COEFEQ 

COMMON/GLOBAL/ 

AVERAG 

COMMON/PSEC/ 
COMMON/IN  TEU/ 

CHECK 

METHOD  OF  SOLUTION 

Initially,  the  flow  properties  of  the  point  in  question  are  assumed  to  be 
the  same  as  those  of  the  known  upstream  point  on  the  same  streamline,  and 
its  location  is  found  by  intersecting  the  average  streamline  from  the  reference 
point  (IS1,  JS1)  on  the  J-line  and  the  average  normal  from  the  known  point  (INI, 
KN  1)  on  the  K-line.  Subroutine  PHYSOL  is  used  to  find  the  reference  prop¬ 
erties  for  the  characteristic  lines  and  Eq .  (3.3)  is  then  used  to  calculate  velocity 
and  flow  angle  for  the  new  point.  Under  normal  conditions,  the  mass  flow  rate 
between  two  streamlines  is  conserved,  but  when  the  streamline  meets  a  shock 
wave,  no  attempt  is  made  to  conserve  the  mass  flow  rate,  because  the  streamline 
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is  terminated  at  the  shock  upstream  region  and  a  new  streamline  is  generated 
from  the  shock  downstream  point. 

The  iterative  method  is  employed  to  find  the  velocity  and  the  flow  angle 
until  they  do  not  change  appreciably  between  the  successive  iterations.  During 
this  iteration,  the  location  of  the  new  point  is  perturbed. 
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FUNCTION  NAME:  TAB 


DESCRIPTION 

This  function  computes  the  thermodynamic  data  storage  location  and 
retrieves  data  from  the  TABB  array. 

CALLING  SEQUENCE 

=  TAB  (I,  J,K,  L) 

where 

I,  J,  K,  L  are  indices  which  are  used  to  determine  the  storage 
location 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /GASD  AT/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 

The  thermodynamic  data  storage  location  is  computed  using  the  follow¬ 
ing  relation 

IX  =  I  +  10  *  (J-l  +  2  *  (K-l  +  13  *  (L-l))), 
and  retrieved  using  the  relation 

TABB  =  TABB  (IX) 
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SimUOllTlN  K  NAME:  TEMTAB 
DESCRIPTION 

This  subroutine  will  perform  a  table  lookup  for  particle  temperature 
as  a  function  of  enthalpy  or  for  particle  enthalpy  as  a  function  of  temperature. 

CALLING  SEQUENCE 

CALL  TEMTAB  (X,  Y,  WHICH) 

where 

X  is  the  unknown  variable 

Y  is  the  known  variable 

WHICH  is  the  lookup  control  variable 

indicating  to  lookup  temperature  (  =  1) 
or  enthalpy  (=2.) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/ CONTRL/ 

COM  MON/ TP  EH/ 

common/tflag/ 

UTILITY  -  None 
METHOD  OF  SOLUTION 

The  unknown  variable  (particle  temperature  or  enthalpy)  is  calculated 
by  either  assuming  constant  heat  capacities  or  by  applying  linear  interpolation 
techniques  to  the  tabulated  data  input  on  cards  32. 
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■SUBROUTINE  NAME;  THERMO 
DESCRIPTION 

This  subroutine  utilizes  real  or  ideal  gas  information  obtained  from 
the  flowfield  tape  (or  tables)  and  a  local  O/F  ratio  (or  total  enthalpy)  to  call 
subroutine  FABLE  to  calculate  thermodynamic  gas  properties  locally  in  the 
flow. 


CALLING  SEQUENCE 

CALL  THERMO  (OF,SS,VV) 


where 

OF  =  gas  total  enthalpy  or  O/F  ratio 

SS  =  gas  entropy 

VV  =  gas  velocity 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 


COMMON /GASCON/ 
COMMON  /  C  PMUK/ 

common/grint/ 

COMMON /PAR  TP  1/ 
COMMON/PAR  TP2/ 
COMMON/TEMPER/ 


COMMON/GASDAT/ 

COMMON/FAB/ 

COMMON/CON  TRL/ 

TAB 

FABLE 

THERM'.l 


METHOD  OF  SOLUTION 

The  routine  is  entered  with  the  local  O/F  ratio  (or  total  enthalpy),  OF, 
entropy,  SS,  and  velocity,  VV.  The  local  ratio  is  used  to  determine  which  set 
of  thermodynamic  tables  that  subroutine  FABLE  should  use  to  perform  table 
lookup  of  the  local  thermodynamic  gas  properties.  Subroutine  THERMO  then 
uses  the  local  thermodynamic  gas  properties  obtained  from  FABLE  to  perform 
an  interpolation  between  the  O/F  (or  total  enthalpy)  tables  based  on  the  local 
O/F  ratio  (or  total  enthalpy). 
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SUBROUTINE  NAME:  THERM  1 


D  ESC  HI  PT1QN 

This  routine  determines  the  gas  thermodynamic  properties  for  a  finite 
rate  chemistry  case. 


CALLING  SEQUENCE 

CALL  THERM  1  (HT,  V) 


where 

HT  is  the  gas  total  enthalpy 
V  is  the  gas  velocity 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/TEMPER/ 

COMM  ON /GASCON/ 

COMMON  /  PCTC/ 

COMMON /CPMUK/ 

COMMON/CONTRL/ 

COMMON/VISEX/ 

COMMON  /  CHEMCN  / 

COMMON  /  CHEMXX  / 

COMMON/GASDAT/ 

TKEY 

TOFH 


METHOD  OF  SOLUTION 

The  routine  looks  up  enthalpy  and  specific  heats  from  tabulated  data  of 
enthalpy  and  specific  heats  as  functions  of  temperature.  The  enthalpy,  specific 
heats  and  molecular  weights  of  each  species  are  used,  along  with  species  con¬ 
centrations,  to  calculate  the  mixture  gas  constant,  gamma,  enthalpy,  specific 
heat,  and  total  pressure  and  temperature.  These  properties,  along  with  velocity 
are  used  to  calculate  total  enthalpy  and  Mach  number. 
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SUBROUTINE  NAME:  THETPM 


DESCRIPTION 

THETPM  performs  a  numerical  integration  to  calculate  properties 
through  a  Prandtl -Meyer  expansion.  Either  the  case  of  known  final  velocity 
or  known  final  expansion  angle  may  be  handled. 

CALLING  SEQUENCE 

CALL  THETPM  (OF,  S,  DELTA,  VF,  VI,  IT,  ITYPE,  K  1W,  K2W) 

where 

OF  is  the  local  O/F  ratio  or  total  enthalpy 

S  is  the  local  entropy  level 

DELTA  is  the  total  expansion  angle 

VF  is  the  final  velocity  downstream  of  the  expansion 

VI  is  the  initial  velocity  upstream  of  the  expansion 

IT  is  a  control  parameter  indicating  if  expansion  to  a 

solid  wall  or  free  boundary  is  taking  place 

ITYPE  indicates  if  an  upper  (2)  or  lower  (1)  boundary  is 
being  considered. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /GASCON/ 

COMMON/ST  EPC/ 

COMMON/CONTRL/ 

THERMO 
TOFH 
ITSUB 
TOF  V 
ERRORS 

METHOD  OF  SOLUTION 

The  integral  equation 
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win-re  V^/yRT  is  solved  knowing  either  the  final  velocity,  V ^ ,  or  the 

expansion  angle  (Aft).  As  can  be  seen,  if  the  final  velocity,  V^.,  is  known,  the 
integration  progresses  straightforwardly  to  a  solution.  However,  if  the  ex¬ 
pansion  angle  is  known,  an  iterative  procedure  must  be  employed  to  pick  the 
velocity  which  produces  the  desired  expansion  angle. 
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SUBROUTINE  NAME;  THRUST 
DESCRIPTION 

THRUST  computes  the  vacuum  thrust  produced  by  a  two-dimensional 
or  axisymmetric  nozzle.  Addition  of  the  thrust  at  the  throat  and  the  inte¬ 
grated  pressure  along  the  nozzle  wall  yields  the  final  thrust. 

CALLING  SEQUENCE 

CALL  THRUST  (L,  K,  II,  Jl,  ITYPE,  ICALC,  K1W1.K1W2) 

where  L,  K  designates  the  unknown  characteristic  point  and  II,  Jl  is  the  known 
characteristic  point.  ITYPE  specifies  if  the  point  is  on  the  upper  or  lower 
boundary  and  ICALC  is  a  counter  with  the  values  of  1.2  or  3.  (1  specifies 

integration  at  the  throat,  2  -  along  the  nozzle  and  3  -  at  the  exit.) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CON  TRL/ 

COMMON/DATAR/ 

COMMON/FORCE/ 

COMMON /INPUT/ 

COMMON/PART  PI/ 

CO  MM  ON/  PA  R  T  P2/ 

COMMON/FSTAG/ 

COMMON/'WT  / 

COM  MON/PS  LD/ 

COMM  ON/IN  TCR/' 

PFP 
V  EM  AG 

METHOD  OF  SOLUTION 

Torus t  is  found  by  first  computing  the  momentum  tnrust  in  the  sonic 
area  or  throat  of  the  nozzle.  The  static  pressure  is  then  integrated  along  the 
nozzle  wall  and  the  total  thrust  found  by  summation  of  the  pressure  and  mo¬ 
mentum  terms  (both  gas  and  particle).  Inclusion  of  a  factor  in  the  incremental 
force  term  accounts  for  either  two-dimensional  or  axisymmetric  flow. 
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SUBROUTINE  NAME:  TKEY 


DESCRIPTION 

This  routine  determines  the  proper  index  to  be  used  in  the  enthalpy  and 
specific  heat  tables  and  calculates  interpolation  factors. 

CALLING  SEQUENCE 

CALL  TKEY  (T,  TTB ,  I  TKEY,  SDT,  HDT,  NT) 

where 

T  =  the  temperature 

TTB  =  the  temperature  tables  used  as  independent  variables 

ITKEY  =  the  resultant  index 

SDT  and  HDT  =  interpolation  factors 

NT  =  number  of  entries  in  the  temperature  table. 


UTILITY  ROUTINES  AND  COMMON  REFERENCES 
None 


METHOD  OF  SOLUTION 

The  routine  searches  the  temperature  table  until  the  input  temperature 
is  bounded.  The  index  of  the  lower  bound  is  stored  in  ITKEY  and  the  inter¬ 
polation  factors  are  calculated  by  the  equations 


and 


SDT 


_ T  -  TTB  (ITKEY) _ 

TTB  (ITKEY  +  1)  -  TTB  (ITKEY) 


HDT 


_ TTB  (ITKEY  +  1)  -  T _ 

TTB  (ITKEIt  +  1)  -  TTB  (ITKEY) 
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FUNCTION  NAME;  TOFEM 
DESCRIPTION 

TOFEM  computes  the  local  static  temperature  as  a  function  of  Mach 
number.  TOFEM  and  TOFV  are  quite  similar;  the  difference  being  if  Mach 
number  or  velocity  is  the  known  quantity. 

CALLING  SEQUENCE 

T  =  TOFEM  (EM.K1W1.K1W2) 

where  T  is  the  one -dimension-'  lly  calculated  local  static  temperature  which 
exists  at  the  Mach  number,  NOTE;  The  appropriate  values  of  the  gas 

properties  must  be  stored  in  common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
C :  O  M  M  ON  /C.  AS  C  ON  / 

UTILITY  -  None 

M  FT  HOD  OF  SOLE  HON 

The  thermally  perfect  gas  relationships  are  used  to  find  the  static  tem¬ 
perature  at  the  local  Mach  number. 

T 

]  =  - - - 

1  +xr 
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FUNCTION  NAME:  TOFENH 


DESCR1  PTION 

This  routine  calculates  the  temperature  as  a  function  of  enthalpy  for  a 
finite-rate  chemistry  case. 

CALLING  SEQUENCE 

=  TOFENH  (HU) 

where  HU  is  the  static  enthalpy 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMM  ON /GASCON/ 

COMMON /PCTC/ 

COMMON/C  PMUK/ 

COMMON/VISEX/ 

COMMON/CHEMCN/ 

COMMON /CHEMXX/ 

COMMON/GASDAT/ 

TKEY 

ITSUB 

METHOD  OF  SOLUTION 

The  temperature  is  estimated  initially  and  this  temperature  is  used  to 
calculate  an  enthalpy  from  the  temperature -enthalpy  tables.  If  the  resultant 
enthalpy  does  not  match  HU,  the  temperature  is  incremented  and  the  process 
repeated  until  the  enthalpies  converge. 
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FUNCTION  NAME:  TOFH 


DESCRIPTION 

This  routine  calculates  the  temperature  as  a  function  of  enthalpy  for  a 
finite  rate  chemistry  case  during  a  Prandtl -Meyer  expansion. 

CALLING  SEQUENCE 

=  TOFlf  (HU.  V) 

where 

HU  is  the  enthalpy 
V  is  the  velocity 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COM M  ON  /TEMP E  R / 

COMMON/GASCON/ 

COMM  ON'/PCT  C  / 

COMMON/C  PM  UK/ 

COMMON  ,/VlSEX/ 

COMMON/ Cl  IEM CN/' 

C  OM  MON/CHEMXX/ 

C  OM  M  ON  /G  AS  D  A  T  / 

TKEY 
IT  SUB 
POFH 

METHOD  OF  SOLUTION 

The  methodology  is  the  same  as  for  TOFENH  except  that  the  gas  constant, 
molecular  weight,  gamma  and  Mach  number  are  also  computed. 
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FUNCTION  NAME:  TOFV 
DESCRIPTION 

This  function  computes  the  local  static  temperature  as  a  function  of 
velocity.  TOFV  and  TOFEM  are  quite  similar;  the  difference  being  if  Mach 
number  or  velocity  is  the  known  variable. 

CALLING  SEQUENCE 

T  =  TOFV  (V,  K  1 W1 ,  K 1 W2) 

where  T  is  the  local  static  temperature  which  exists  at  the  velocity,  V. 
NOTE:  The  appropriate  values  of  the  gas  properties  must  be  stored  in 
common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/GASCON/ 

RITE 

ERRORS 

KIKOFF 

METHOD  OF  SOLUTION 

The  thermally  perfect  gas  relationships  are  used  to  find  the  static 
temperature  at  the  local  velocity. 
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SUBROUTINE  NAME:  TRANS 


DESCRIPTION 

This  subroutine  provides  overall  control  for  initializing  the  data  and 
reading  the  namelist  data  for  the  Kliegel  two-phase  transonic  solution  of  a 
supersonic  gas  particle  startline. 

CALLING  SEQUENCE 

CALL  TRANS  (NTAPE,  NSETS,  RUT) 

where 

NTAPE  =  FORTRAN  unit  on  which  the  startline  is  written 

NSETS  =  number  of  startline  points  where  particles  are 
present 

RUT  =  throat  radius  (ft) 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  ,/CONTRL/ 

COMMON /GASDAT/ 

COMMON /GASCON/ 

COMMON/CPMUK/ 

COMMON/TPEH/ 

COMMON /MASSC/ 

COMMON/DR  AGC  F/ 

COMMON/TRANS  1/ 

METHOD  OF  SOLUTION 
Not  applicable. 
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SUBROUTINE  NAME:  TURN 


DESCRIPTION 

TURN  solves  for  a  shock  wave  which  has  a  known  turning  angle  (6). 

A  condition  of  known  turning  angle  exists  when  the  flow  is  turned  through  a 
compression  corner  on  a  solid  boundary.  Real  gas  effects  are  considered 
in  calculating  conditions  downstream  of  the  shock. 

CALLING  SEQUENCE 

CALL  TURN  (PU,  PD,  DELTA,  IFLAG ,  K  1W 1 ,  K  1W2) 

where  PU,  PD  represent  flow  conditions  upstream  and  downstream  of  the  shock, 
DELTA  is  the  turning  angle,  and  IFLAG  indicates  if  the  solution  will  or  will  not 
converg  e . 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/CRITER/ 

COMMON/CONTRL/ 

THERMO 

EMOFV 

UOFEM 

ESHOCK 

ITSUB 

ERRORS 

UOF  V 

METHOD  OF  SOLUTION 

An  initial  shock  angle  is  assumed.  This  shock  angle  is  used  to  calculate 
a  turning  angle.  The  calculated  turning  angle  is  compared  to  the  known  turning 
angle  and  successive  iterations  on  shock  angle  are  performed  until  the  turning 
angle  difference  is  sufficiently  close  to  zero. 
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FUNCTION  NAME;  U O F EM 
DESCRIPTION 

This  function  computes  the  local  Mach  angle  as  a  function  of  local  Mach 
number.  Prior  to  the  calculation  a  test  is  made  to  ensure  that  the  Mach  num¬ 
ber  is  greater  than  one. 

calling  sequence 

EMU  =  UOFEM  (EM,  KIWI,  K  1W2) 

where  EMU  is  the  Mach  angle  which  exists  at  the  local  Mach  number,  EM. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  -  None 
ERRORS 
K2KOFF 
RITE 

METHOD  OF  SOLUTION 

The  following  equation  is  solved  for  the  local  Mach  angle. 
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FUNCTION  NAME:  UOFV 
DESCRIPTION 

This  function  computes  the  local  Mach  angle  as  a  function  of  local  velocity 
CALLING  SEQUENCE 

EMU  =  UOFV  (V.K1W1.K1W2) 

where  EMU  is  the  Mach  angle  which  exists  at  the  local  velocity,  V. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  -  None 
UOFEM 
EMOFV 


METHOD  OF  SOLUTION 

The  local  velocity  is  converted  into  a  Mach  number  using  EMOFV. 
Function  UOFEM  is  then  entered  with  the  calculated  Mach  number.  The 
Mach  angle  is  obtained  from  the  following  equation. 


jU  =  tan 
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FUNCTION  NAME:  VEMAG 


PESCKI  FT  I  ON 

VEMAG  determines  the  magnitude  of  a  vector. 

CALLING  SEQUENCE 

=  VEMAG  (V) 

where  V  is  any  vector. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  -  None 
DOTPRD 

METHOD  OF  SOLUTION 

The  following  equation  is  solved  for  the  magnitude  of  a  vector 
VEMAG  =  ^fv(l)2  +  V(2)2 

where 

V  =  V(I)T  +  V(2)7 
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FUNCTION  NAME:  VOFEM 


DESCRIPTION 

This  function  computes  velocity  as  a  function  of  Mach  number. 
CALLING  SEQUENCE 

V  =  VOFEM  (EM,  K1W1.K1W2) 

where  V  is  the  local  velocity  which  corresponds  to  the  local  Mach  number, 
EM.  NOTE;  The  appropriate  values  of  the  gas  properties  must  be  stored 
in  common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON  /GASCON/ 

TOFEM 


METHOD  OF  SOLUTION 

The  thermally  perfect  gas  relationship 


Ry(To-T) 

iw 


is  solved  for  velocity.  Local  static  temperature,  T,  is  obtained  from  the 
input  Mach  number. 
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SUBROUTINE  NAME:  WEAK 
DESCRIPTION 

This  subroutine  determines  the  independent  variables,  entropy  and 
velocity,  SD,  VD,  downstream  of  a  weak  oblique  shock.  The  gas  properties 
upstream  of  the  shock  are  known  prior  to  entry. 

CALLING  SEQUENCE 

CALL  WEAK  (OF,  SU,  VU,  EPS,  DELTA,  SD,  VD,K1W,K2W) 

where  OF  is  the  upstream  O/F  ratio  (or  total  enthalpy),  SU,  VU  are  the  up¬ 
stream  entropy  and  velocity,  EPS,  DELTA  are  the  shock  angle  and  turning 
angle,  and  SD,  VD  are  the  downstream  entropy  and  velocity. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/GASCON/ 

THERMO 
EMOFV 
POFEM  , 

RHOFEM 

ENTROP 

DELTAF 

METHOD  OF  SOLUTION 

From  the  known  upstream  entropy  and  velocity,  the  local  gas  properties, 
pressure,  density,  and  upstream  Mach  number  are  calculated.  The  entropy 
rise  across  the  shock  is  added  to  the  upstream  entropy  to  get  total  downstream 
entropy.  Downstream  velocity  is  calculated  from  the  following  relationship. 

VU  cos(£) 

^D  -  cos  (£  -  6) 
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FUNCTION  NAME:  WOFA 
DESCRIPTION 

WOFA  computes  the  weight  flow  per  unit  area  as  a  function  of  Mach 
number.  This  calculation  is  only  used  in  function  AOASTR. 

CALLING  SEQUENCE 

Weight  Flow  =  WOFA  (EM,  KIWI,  K  1 W2) 

where  EM  is  the  local  Mach  number.  NOTE:  The  appropriate  values  of  the 
gas  properties  must  be  stored  in  common  upon  entry  to  this  routine. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /GASCON/ 

UTILITY  -  None 


METHOD  OF  SOLUTION 

Weight  flow  per  unit  area,  W/A,  is  calculated  from  the  thermally  perfect 
gas  relation. 


W 

A 


V 


RT 


P  M 
o 


[[l+^M2 


y  +1 

212(Y-1) 
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FUNCTION  NAME:  WTFLOF 
DESCRIPTION 

This  function  computes  the  area  normal  to  the  flow  which  is  bounded 
by  two  streamline  points. 

CALLING  SEQUENCE 

=  WTFLOF  (M,  N,  K,  A) 

where 

M  =  the  point  number  of  the  lower  streamline  point 
N  =  the  point  number  of  the  upper  streamline  point 
K  =  the  line  number 

A  =  a  1  for  axisymmetric  flow  and  a  0  for  two- 
dimensional  flow. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON /DAT  AR/ 

COMMON  /CONTRL/ 

UTILITY  -  None 

METHOD  OF  SOLUTION 

The  area  bounded  by  two  points  and  normal  to  the  average  local  flow 
vector  is  calculated  via  geometric  relations 
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I'  UNCTION  NAME:  XS1 


DESCRIPTION 

This  function  computes  the  storage  location  for  the  nonlinear  interpo¬ 
lation  weighting  functions  required  for  thermodynamic  property  lookup  and 
retrieves  data  from  XSIDIM. 

CALLING  SEQUENCE 

=  XSI  (I,  J,  K,  L) 

where 

I,  J,  K,  L  are  indices  used  to  determine  the  storage  location. 

UTILITY  ROUTINES  AND  COMMON  REFERENCES 
COMMON/XSICOM/ 

UTILITY  -None 

METHOD  OF  SOLUTION 

The  storage  location  is  computed  using  the  following  relation 
IX  =  I  +  10  *  (J-l  +  2  *  (K-l  +  13  *  (L-l))) 
and  retrieved  using  the  relation 

XSI  =  XSIDIM  (IX) 
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3.7  EXAMPLE  PROBLEMS 


To  familiarize  the  user  with  the  operation  of  the  RAMP  computer  pro¬ 
gram  several  sample  cases  are  presented.  Each  sample  case  will  consist  of 
a  description  of  the  problem,  a  listing  of  the  input  data  for  the  problem  and  a 
listing  of  the  pertinent  solution. 

Example  Problem  1 

This  problem  analyzes  a  single  phase  chemical  equilibrium  flow  field 
with  the  following  stipulations: 

1.  Generate  a  startline  at  the  nozzle  exit  plane  for  example 
problem  2, 

2.  The  gas  properties  are  to  be  read  from  cards,  and 

3.  The  startline  at  the  nozzle  throat  is  to  be  calculated  internal 
to  the  program. 

Figure  3-4  presents  a  schematic  of  a  typical  nozzle  plume  flow  field.  Table 
3-7  presents  first  a  flow  chart  and  then  a  listing  of  the  input  data  for  the 
specified  problem;  some  of  these  cards  are  indicated  in  Fig.  3-4.  Table  3-8 
presents  a  listing  of  the  pertinent  solution. 
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Fig.  3-4  -  Schematic  of  a  Typical  Nozzle-Plume  Flow  Field  with  Control 
Cards  Indicated 


Table  3-7 

REQUIRED  INPUT  FORMAT  FOR  EXAMPLE  PROBLEM  1 


f  gas  properties  are  input  on  tape  (ICON(l)=2)  Cards  9,  10  and  11  are  not 
equired. 
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NOTES:  (1)  Typical  printout  for  a  data  surface  at  the  nozzle  exit  plane. 

(2)  Some  points  have  been  omitted  for  demonstration  purposes. 
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NOTES:  (1)  Typical  printout  for  a  data  surface  confining  a  Prandtl -Meyer  Expansion. 
(2)  Some  points  have  been  omitted  for  demonstration  purposes. 
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L'xainpK:  Problem  2 

Example  problem  2  is  a  continuation  of  the  flowfield  analysis  begun  in 
example  problem  1  and  is  subject  to  the  following  stipulations: 

1.  The  analysis  is  to  begin  at  the  nozzle  exit  plane  and  is  to 
utilize  the  startline  generated  by  example  problem  1. 

2.  Free  molecular  calculations  are  to  be  considered,  and 

3.  The  gas  properties  are  to  be  read  from  cards. 

Table  3-9  presents  first  a  flow  chart  and  then  a  listing  of  the  input  data 
for  the  specified  problem.  Table  3-9a  presents  a  listing  of  the  pertinent 
solution . 
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Tabic  '5-9 

REQUIRED  INPUT  FORMAT  FOR  EXAMPLE  PROBLEM  2 


I  f  ya  s  proper)  i 
required. 


us  are  input  on  tape  (ICON  (1)  -2)  Cards  9.  10  and  11  are  not 
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Example  Problem  3 

< 

This  problem  analyzes  a  two-phase  chemical  equilibrium  flow  iield 
with  the  following  stipulations: 

1.  Free  molecular  flow  calculations  are  not  to  be  considered. 

2.  The  gas  properties  are  to  be  read  directly  from  a  data  tape 
mounted  on  FORTRAN  unit  10. 

3.  The  start  line  is  to  be  calculated  internal  to  the  program. 

Table  3-10  presents  first  a  flow  chart  and  then  a  listing  of  the  input  data  for 
the  specified  problem.  Table  3-11  presents  a  listing  of  the  pertinent  solution. 
Table  3-12  presents  a  listing  of  the  input  data  required  for  creation  of  the 
thermodynamic  gaseous  properties  data  tape  using  the  modified  TRAN72 
computer  program  (see  Section  2  for  details). 
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Table  3-10 

REQUIRED  INPUT  FORMAT  FOR  EXAMPLE  PROBLEM  3 


The  gas  properties  are  input  on  tape.  Therefore,  Cards  9.  10  and  1 
not  required. 
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EXAMPLE  PROBLEM  3  PERTINENT  SOLUTION 
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INPUT  DATA  REQUIRED  FOR  CREATION  OF  THE  THERMODYNAMIC 
GASEOUS  PROPERTIES  DATA  TAPE 
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Example  Problem  4 

Example  problem  4  is  the  same  as  example  problem  3  except  that  the 
start  line  is  input  on  cards.  Table  3-13  presents  a  flow  chart  of  the  input 
data  for  the  specified  problem.  Note  that  Card  35  has  been  replaced  by 
Cards  33a  and  34a.  A  listing  of  the  pertinent  solution  is  omitted  as  it  is 
basically  the  same  as  for  example  problem  3. 
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Table  3-13 


REQUIRED  INPUT  FORMAT  FOR  EXAMPLE  PROBLEM  4 


The  gas  properties  are  input  on  tape.  Therefore,  Cards  9,  10  and  1 
not  required. 
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This  problem  analy7.es  a  single  phase  finite  rate  chemistry  flow  field 
with  the  following  stipulations: 

1.  Free  molecular  calculations  are  not  to  be  considered, 

2.  Species  mole  fractions  on  the  start  line  are  to  be  read  from 
cards,  and 

3.  The  start  line  is  to  be  input  on  cards. 

Table  3-14  presents  first  a  flow  chart  and  then  a  listing  of  the  input 
data  for  the  specified  problem.  Table  3-15  presents  a  listing  of  the  perti¬ 
nent  solution. 
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Table  3-14 

REQUIRED  INPUT  FORMAT  FOR  EXAMPLE  PROBLEM  5 


If  species  mole  fractions  are  input  on  tape  (ICTAPE=1)  Cards  16  and  17  are 
not  required. 
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Table  3-14  (Continued) 
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This  problem  analy/.es  a  two  phase  finite  rate  chemistry  flow  field  with 
the  following  stipulations: 

1.  Free  molecular  calculations  are  not  to  be  considered. 

2.  Species  mole  fractions  on  the  start  line  are  to  be  read  from 
cards,  and 

3.  The  start  line  is  to  be  input  on  cards. 

Table  3-16  presents  first  a  flow  chart  and  then  a  listing  of  the  input 
data  for  the  specified  problem.  Table  3-17  presents  a  listing  of  the  perti¬ 
nent  solution. 
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i  nidi-  Solution  Control 
Card  2  3 


Particle  Physical  Data 
Cards  24-29 


'  ra.  ti  ms  are  input  on  tape  (ICTAPEi-ll  cards  16  and  1  7  are  not  re 
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Table  3-16  (Continued) 
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Table  3-17  (Continued! 


t 


"W 


NOTES:  (I)  Typical  printout  for  a  data  surface  containing  a  Prandtl-Meyer  Expansion. 
(2i  Some  points  have  been  omitted  for  demonstration  purposes. 


AD-A094  633  LOCKHEED  MISSILES  AND  SPACE  CO  INC  HUNTSVILLE  AL  HUN— ETC  p/S  21/8.2 
SUPERSONIC  FLOP  OF  CHEMICALLY  REACTING  GAS-PARTICUE  MIXTURES.  V— ETC(U> 
JAN  76  M  M  PENNY.  S  D  SMITH.  P  G  ANOERSON  NAS9-14517 

UNCLASSIFIED  LMSC-HREC-TR-0496555-2  NL 


G  The  LOCKHEED-hUNT iv I LLE  MULTIPLE  S>HOc*  COIPUTeR  P  h  OgH  e  m 
&AS«P AO  T  I  CLt  FtO*  iULUIJON  -  -  ..  —  - 

ASt  no,  1 


(2)  Some  points  have  been  omitted  for  demonstration  purposes 


Example  problem  7  is  the  same  as  example  problem  6  except  that  the 
start  line  is  calculated  internal  to  the  program.  Table  3-18  presents  a  flow 
chart  of  the  input  data  for  the  specified  problem.  Note  that  Card  35  replaces 
Cards  33b  and  34b  of  example  problem  6.  A  listing  of  the  pertinent  solution 
is  omitted  as  it  is  basically  the  same  as  for  example  problem  6. 
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If  species  mole  fractions  are  input  on  tape  (ICTAPE  =  1)  cards  16  and  17  are  not  required. 
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Example  Problem  8 

This  problem  analyzes  a  two-phase  ideal  gas  flow  field  with  the  follow¬ 
ing  stipulations: 

1.  Free  molecular  flow  calculations  are  not  to  be  considered. 

2.  The  gas  properties  are  to  be  read  from  cards,  and 

3.  The  start  line  is  to  be  calculated  internal  to  the  program. 

Table  3-19  presents  first  a  flow  chart  and  then  a  listing  of  the  required 
input  data  for  the  specified  problem.  Table  3-20  presents  a  listing  of  the 
pertinent  solution. 
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Table  3-19 

REQUIRED  INPUT  FORMAT  FOR  EXAMPLE  PROBLEM  8 


If  gas  properties  are  input  on  tape  (ICON(l)=2)  Cards  9,  10  and  11  are  not 
required. 
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Table  3-19  (Concluded) 


Cards  J  Tuiu  PHASE  1  UtAL  LIAS  CHtCK  CASE 

1-3  I- 

Car.l  4  1  0  2540081  1  0  1  2  1  1 5  52  II  02505 

1 .2 70071 402. 451 7025  16.366  0  1.3261493  2.466111  17. 

1  .40l64(J‘jU2.46991bOBlB.  0  1 . 476722832 . 5  I  50 353  19. 

1 .551346332. S4 1 4508320.  0  1.5254973  2.5591848  21. 

1.599153  2. 39b 1983322.  0  1.7722913  2 .5284933323. 

1 .844889582. 65006  24.  0  1.8881803  2.6796065  24.6 

I. 904525  2.6858416724.5  0  2.0116  2 . 7 345666724 . 6 

2. 1  185566 12.  1830833324.6  0  2 . 225 733332 . 8326083324 . 6 

2.3326083 32 .do 1625  24.6  0  2 . 449708332 . 9 35  24.4824 

2 .5908333  32. 998958334  4 .2765  0  2 . 74940b333 .07005  24.ol46 

2.9224583 33. 1466  28.7123  0  3 . 1 08308333 • 2275833 Jc 3 . 3 785 

J.  305833333. 3 Ia24 lo7c3. 0*04  0  3 . 5 1 409 1 673 . 399925  22.6438 
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EXAMPLE  PROBLEM  8  PERTINENT  SOLUTION 
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Table  3-20  (Continued) 
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iUPtfcSl'i.U  fLU*  AIimLTSI  5  USING  T  HE  UQCK«t  EO-HUNT  S  V  i  LLE  MULTIPLE  SMOCK  COHPUTtK  PKOSHan 

-  gaS-PANT  I  CEE  FLO*— SOlUT  ION -- - - 

case  no.  S2  pagc 
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NOTES:  (1)  Typical  printout  for  the  startline  data  surface. 

(2)  Some  points  have  been  omitted  for  demonstration  purposes. 
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r 


NOTES:  (1)  Typical  printout  for  a  data  surface  containing  a  Prandtl-Meyer  Expansion 
(2)  Some  points  have  been  omitted  for  demonstration  purposes. 


.4 


»  f 


Example  problem  9  is  the  same  as  example  problem  8  except  that  a 
single  phase  ideal  gas  flow  field  will  be  analyzed. 

Table  3-21  presents  first  a  flow  chart  and  then  a  listing  of  the  input 
data  for  the  specified  problem.  Table  3-22  presents  a  listing  of  the  perti¬ 
nent  solution. 
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Table  3-21 

REQUIRED  INPUT  FORMAT  FOR  EXAMPLE  PROBLEM  9 


If  gas  properties  are  input  on  tape  (ICON(l)=2)  Cards  9,  10  and  11  are  not 
required. 
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Table  3-21  (Concluded) 
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NOTES:  (1)  Typical  printout  for  a  data  surface  containing  a  Prandtl -Meyer  expansion. 
(2)  Some  points  have  been  omitted  for  demonstration  purposes. 


Section  4 
CONCLUSIONS 


A  versatile  compute*  program  has  been  described  in  the  preceding 
sections.  The  code  has  numerous  options  which  have  necessitated  a  some¬ 
what  generalized  set  of  input  data.  These  options  include: 

•  Gas -Particle  Flows 

•  Chemistry 

Equilibrium 

Kinetics 

Chemically  Frozen 
Constant  Thermodynamics 

•  Single -Phase  Solution 

Non -Isoenergetic  Flow 

•  Non  -  Continuum  Flow 

•  Performance  Calculations 

•  Shock  Waves 

In  its  present  form,  the  code  has  the  capability  of  producing  data  for 
the  following  applications: 

•  Gas/Gas -Particle  Impingement  (Heat  Transfer  Loads) 

•  Rocket  Nozzle  Performance  (Thrust.  I  ) 

sp 

•  IR  Signatures  (Radiating  Species) 

•  RF  Attenuation  (Electron  Densities) 

•  Plume  Radiation  (Radiative  Heat  Transfer  Gas/ 

Pa  rticles) 

•  Vehicle  Base  Pressure 

•  Base  Heating  (Convection -Recirculation) 
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A  primary  consequence  of  this  work  is  the  extension  of  gas-particle 
solutions  to  treat  chemical  kinetics  for  nozzle-exhaust  plume  flow  fields. 
Since  the  code  has  the  option  of  treating  single-phase  flow,  chemical  kinetics 
can  also  be  included  in  liquid  propellant  motor  analyses  as  well  as  solid  pro¬ 
pellant  calculations.  The  method  by  which  the  kinetic  equations  are  modeled 
also  permits  thermal  non  equilibrium  to  be  treated. 

The  RAMP  code  is  an  advance  in  the  state  of  the  art  in  the  area  of  two- 
phase  flowfield  numerical  solutions.  Future  development  of  the  code  may  be 
done  in  the  area  of  imbedded  subsonic  regions  (Mach  disks)  and  subsonic - 
supersonic  mixing. 
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CARD  i  -  Run  control  card 


Format:  1615 


Column  Parameter 


IORDR 


IWRITE 


14-15 


IDUM1 


Value  Description 

0  Will  not  call  data  ordering  routines  but 
will  execute  lookup  routines.  Ordered 
flowfield  tape  must  be  input. 

1  Will  order  flowfield  data  and  generate 
Radiance  tape. 

2  Will  order  flowfield  data  but  will  not 
generate  Radiance  tape. 

0  No  intermediate  printout  in  property 
lookup  routines. 

1  Use  a  one  only  if  problems  are  encoun¬ 
tered  with  program  and  intermediate 
printout  is  necessary  to  determine  pro¬ 
blem. 

0  Species  and  species  concentrations  will 
come  from  flowfield  tapes  or  finite- rate 
chemistry  case, 

N  Number  of  species  and  species  concen¬ 
trations  to  be  read  from  cards  (Assumes 
species  and  species  concentrations  con¬ 
stant  throughout  plume.)  (25  max). 

0  If  two  entropy  tables  are  present  on  the 
RAMP  tape  both  tables  will  be  used  to 
determine  local  flow  properties  and 
species  concentrations. 

1  Only  first  entropy  table  will  be  used  to 

determine  flow  properties. 

Ignore  for  finite  rate  chemistry  case. 


LOCKHEED  ■  HUNTSVILLE  RESEARCH  &  ENGINEERING  CENTER 


*  r 


CARD  1  (Continued) 


Column 

Parameter 

Value 

Dose  r  lption 

2  1  -  z  5 

IXCUT 

N 

Number  of  axial  cuts  to  bo  written  on 
flowfield  tape.  The  values  of  the  cuts 
will  be  read  from  Card  10  (100  max) 

2  6-30 

KASE 

N 

Case  number  to  be  written  on  Radiance 
tape. 

3  5 

INUNIT 

0 

Output  pressure  and  temperature  in 

English  units.  Temperature,  °R;  pres¬ 
sure,  lb/ft^ 

1 

Output  pressure  and  temperature  in 
metric  units.  Temperature,  °K;  pres¬ 
sure,  atm. 

40 

LSOLID 

0 

Do  not  perform  2-phase  flow  energy  cal¬ 
culations  for  heating  analysis. 

1 

Perform  2-phase  flow  energy  calculations. 

43 

LSOJLGS 

0 

MOC  input  tape  on  Unit  8. 

1 

RAMP  input  tape  on  Unit  8. 

50 

INRS 

0 

No  radiation  data  on  input  tape. 

N 

Number  of  radiating  species  on  input  tape. 

54-55 

NS 

0 

Equilibrium  or  frozen  chemistry. 

N 

Number  of  species  on  input  tape  for  finite 
rate  chemistry  case  (RAMP  only)  (25  max). 

60 

IPSTR 

0 

Pitot  pressure  data  not  on  input  tape. 

1 

Pitot  pressure  data  on  input  tape. 

6  5 

KUNIT 

1 

English  units  used  internally. 

2 

MKSunits  used  internally  (Required  only 
if  NS>0), 
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CARD  2 


Kefi’ rente  Card  for  Property  Lookup.  These  data  are  used  to  non- 
ditnensionali'/,e  the  axial  and  radial  coordinates  which  are  to  be  looked  up 
in  the  ordered  flow  field. 


Format:  3  El  0.6 


Column  Parameter 


Descr  iption 


1-10  XREFF 


Axial  coordinate  to  which  each  input 
axial  station  is  referenced  (ft  or  m). 


11-20  ST 


21-30  RREFF 


Reference  length  by  which  all  input 
axial  stations  and  radial  coordinates 
are  multiplied  (ft  or  m). 

Radial  coordinate  to  wnich  each  radial 
coordinate  is  referenced  (ft  or  m). 


NOTE:  RREFF.  XREFF  and  ST  are  used  as  follows  (in  main  routine  only): 

X  =  X*S  T— XR  EF  F 
R  =  R*ST— RREFF 


CARD  3 


This  card  contains  the  necessary  information  to  limit  the  calculations 
to  those  areas  of  interest.  Units  are  consistent  with  the  ordered  flow  field. 


Format: 

8E10.6 

Column 

Par  amete  r 

Description 

1-  10 

CUT  DA  T  ( 1 ) 

Radial  coordinate  defining  upper  cut  off 
(ft  or  m). 

1  1-20 

CUTDAT(2) 

Axial  coordinate  defining  upper  cut  off 
(ft  or  m). 

21-30 

CUTDAT(3) 

Angle  cutoff  line  makes  with  horizontal 
(deg). 
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CARD  3  (Continued) 


Coin  m  n 

Parameter 

Description 

3  1-40 

CUTDAT(4) 

Radial  coordinate  defining  downstream 
cut  off  (ft  or  m). 

41-50 

CUTDAT(5) 

Axial  coordinate  defining  downstream 
cut  off  (ft  or  m). 

51-60 

CUTDAT(6) 

Angle  cut  off  line  makes  with  horizontal 
(deg). 

CARD  4 

This  card  inputs  radiation  data  only  when  INRS  (Card  1)  is  greater 

than  zero. 

Format:  5(A6,  6X) 

Column 

Parameter 

Desc  ription 

1-6 

AIDR(l) 

Name  of  first  initial  radiating  species. 

13-18 

AIDR  (Z) 

Name  of  second  initial  radiating  species 

• 

AIDR(K) 

Name  of  last  initial  radiating  species, 

where  K  =INRS. 
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This  card  inputs  radiation  data  only  when  INRS  (Card  i)  is  greater 
than  zero. 

Format:  5(A6,  6X) 


Column 

Parameter 

Description 

1-6 

AIDRT(l) 

Name  of  species  that  AIDR(l)  transforms 
to  during  radiation  process. 

13-18 

AIDRT(2) 

Name  of  species  that  AIDR(2)  transforms 
to  during  radiation  process. 

AIDRT(K) 


Name  of  species  that  AIDR(K)  transforms 
to  during  radiation  process. 


CARD  6 


Control  card  for  the  ordering  section.  Cards  6  and  7  are  used  only 
when  IORDR  (Card  1)  is  greater  than  zero. 


Format:  1615 


> 

Column 

Parameter 

Value 

Description 

V 

5 

IS  TART 

Ordering  the  flowfield  data  will  begin 
with  this  characteristic  line  number. 

f 

10 

ISIGN 

-  1 

If  the  flow  field  was  generated  with  a 
reflected  shock  from  the  nozzle  axis, 
otherwise  leave  blank. 

i. 

15 

NUMBER 

Number  of  flowfield  data  points  desired 
per  data  record  (max.  of  300). 

f' 

•i 

20 

IDEL 

>0 

If  any  points  are  to  be  deleted  from  the 
flow  field. 
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CARD  6  (Continued) 


Column 

Parameter 

Value 

Description 

25 

IPRINT 

>0 

If  intermediate  data  are  to  be  printed  as 
the  flow  field  is  ordered  by  distance  from 
the  engine  exit  plane. 

30 

ITERM 

Characteristic  line  number,  where  order¬ 
ing  of  flowfield  data  is  to  be  terminated. 
(This  line  is  not  used  by  program). 

35 

IS  END 

1 

If  plume  boundary  is  to  be  curve-fitted 
for  use  in  the  interpolation  scheme. 

2 

If  only  the  cutoff  limits  read  as  input 
data  are  to  be  used  to  see  if  a  point  is 
within  a  prescribed  boundary. 

40 

ISKIP 

If  ISEND  =  1  every  I5KIP  line  will  be 
examined  for  a  free  boundary  point. 

CARD  7 

Column 

Parameter 

Description 

1-10 

RREF* 

Radial  coordinate  to  which  each  flowfield 
data  point  will  be  referenced  (ft  or  m). 

1  1  -20 

XREF* 

Axial  coordinate  to  which  each  flowfield 
data  point  will  be  referenced  (ft  or  m). 

21-30 

DELETE 

One  of  two  points  with  a  distance  between 
them  less  than  DELETE  will  be  deleted 
from  the  flowfield  data.  Will  not  delete 
shock  point. 

31-40 

DIAM 

Reference  factor,  units  consistent  with 
plume  dimensions.  Can  be  used  to  scale, 
etc.,  the  local  plume  coordinates. 

The  coordinates  XREF  and  RREF  are  used  to  accomplish  any  desired 
coordinate  system  translation. 
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NOTE:  RREF,  XREF  and  DIAM  are  used  as  follows: 

R  =  (R-RREF)/DIAM 
X  =  (X-XREF)/DIAM 


CARD  8 

This  card  inputs  particulate  heat  transfer  data  and  is  used  only  if 
LSOLID  (Card  1)  is  greater  than  zero  and  when  IORDR  is  greater  than  zero. 


Format: 

6E10.6 

Column 

Parameter 

Desc  ription 

1-10 

ACOMCF 

Accommodation  coefficient. 

1  1-20 

TWALL 

Wall  temperature  (°R  or  °K). 

21-50 

CPS 

Particulate  phase  heat  capacity. 

CARD  9 

Species  concentration  cards  (Input  only  if  ISP  >0  and  NS  =  0)  these 
cards  contain  the  species  names  and  mole  fractions  if  the  species  concen¬ 
trations  are  constant  throughout  the  plume.  There  are  four  species  per 
card  up  to  a  maximum  of  25  species.  Overrides  species  on  flowfield  tape. 


Format-  4(A6,  4X,  E10. 6) 

Column  Parameter  Description 

I- 6  SONAME(I,  1)  Species  name  —  left  adjusted,  consistent 

with  RAMP  species  names. 

II- 20  AMO(I)  Mole  fraction  of  species. 

NOTE:  Repeat  SONAME  and  AMO,  4  pairs  to  a  card  until  all  ISP  species 
are  read  in. 
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This  card(s)  reads  in  the  axial  stations  and  the  radial  increment  to 
be  used  in  constructing  the  radiance  tape.  There  are  2  stations  per  card 
up  to  100  stations. 

Format:  6E10.6 


Column 

Parameter 

Description 

1-10 

X(l) 

First  axial  station  at  which  radial  dis¬ 
tribution  of  flowfield  properties  are  de¬ 
sired  (ft  or  m). 

1  1-20 

DR(  1 ) 

Radial  increment  between  data  points 
along  radial  for  station  1  (ft  or  m) 

21-30 

RMAX{1) 

Maximum  value  of  radial  distance  desired 
for  station  1.  If  zero,  program  determines 
maximum  (ft  or  m). 

31-40 

X(2) 

Second  axial  station  at  which  radial  dis¬ 
tribution  of  flowfield  properties  are  de¬ 
sired. 

41-50 

DR(2) 

Radial  increment  between  data  points  along 
radial  for  station  2. 

51-60 

RMAX(2) 

Maximum  value  of  radial  distance  desired 
for  station  2.  If  zero,  program  determines 
maximum. 

Repeat  until  IXCUT  (Card  1)  number  of  stations  have  been  input. 
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Where  Required 


Tape  Units 
U- 1 108 


Tape  Unit  Function 


Section  1 


SORTCT 


10 


Flowfield  tape  generated  by 
RAMP  program- input. 


Subroutine  SORTCT  is  the 
controlling  routine  for  this 
section  which  arranges  the 
RAMP  output  in  the  form 
used  by  the  data  acquisition 
routines.  This  section  is 
used  once  per  flowfield 
calculation. 


Section  2 


8 


Flowfield  data  ordered  for 
use  in  property  lookup- output. 


2 

3 

4 


Flowfield  limits  data- output. 

Scratch  tape. 

Scratch  tape  for  species 
concentrations  &  radiation 
data. 


GENERATE  RADIANCE  TAPE 


4 


Radiance  tape— output 


This  section  performs  the  local 
property  lookup  and  generates 
the  radiance  tape. 


8 


Ordered  flowfield  data  gene¬ 
rated  by  Section  1— input. 


2 


Flowfield  limits  data  gene¬ 
rated  by  Section  1- input. 
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by 

A.W.  Ratliff"" 

J.W.  Benefield^ 

Lockheed  Missiles  &  Space  Company 
Huntsville ,  Alabama 


ABSTRACT 

Various  assumptions  are  used  by  many  organizations  to  compute  rocket 
motor  plumes.  In  applying  plume  data,  the  question  of  accuracy  invariably 
arises.  Some  guidelines  are  therefore  needed  to  estimate  the  accuracy 
of  the  plume  data  based  upon  the  assumptions  that  are  employed.  This  paper 
is  intended  to  serve  as  a  guide  for  estimating  plume  accuracy  ar.d  to  alert 
the  plume  analyst  to  the  magnitude  of  error  which  might  be  expected  if 
certain  assumptions  are  used.  Much  of  the  information  contained  in  this 
paper,  however,  is  based  upon  somewhat  subjective  data  and/or  certain  cases 
from  which  some  experience  has  been  gained.  The  data  presented  should, 
therefore,  b--  used  judiciously,  the  problem  at  hand  should  be  carefully 
considered,  and  the  fact  that  the  error  bands  have  been  somewhat  grossly 
estimated  should  be  kept  in  mind. 


This  work  was  supported  by  NASA-Marshall  Space  Flight  Center,  Contract 
NAS8-2008?.  The  test  data  and  theoretical  analyses  cited  in  this  report 
were  sponsored  by  the  Aero-Astrodynamics  Laboratory  of  Marshall  Space 
Flight  Center  as  a  continuing  effort  in  rocket  plume  technology  in  support 
of  NASA  programs . 
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INTRODUCTION 


During  the  past  several  years  sophisticated  techniques  for  computing 
rocket  motor  exhaust  pl\unes  nave  been  developed.  The  prediction  methods  can 
take  into  amount  siu’h  influencing  parameters  as  combustion  chamber  losses, 
flow  striat.ions,  reaction  kinetics  and  non-continuum  effects.  When  a  plume 
flow  field  is  to  ne  computed,  the  degree  of  analytical  sophistication  that 
will  be  used  should  be  based  on  an  assessment  of  such  factors  as:  (l)  ulti¬ 
mate  purpose  of  the  data;  (2)  time  available  to  accomplish  the  calculations; 
and  ( 3)  degree  of  accuracy  required.  In  most  cases,  all  effects  that  can  be 
calculated  should  be  included  in  the  calculations.  To  include  all  effects  may, 
of  course,  be  time-consuming;  this  is  not  always  practical  if  schedules  are 
to  be  met.  Plume  data  are  therefore  sometimes  generated  which  circumvent 
the  various  effects  that  are  felt  to  be  small.  Since  much  plume  data  are 
generated  by  using  various  assumptions,  some  guidelines  are  needed  to  esti¬ 
mate  the  accuracy  of  the  resulting  plumes  based  upon  the  assumptions  that 
are  employed. 

Although  an  absolute  accuracy  cannot  at  this  time  be  assigned  to  the 
final  numbers  generated  for  any  given  plume  calculation,  at  least  a  reason¬ 
able  estimate  can  be  made  of  the  anticipated  accuracy,  depending  upon  the 
various  assumptions.  Some  of  the  assumptions  influence  specific  regions  of 
the  flow  field,  and  the  accuracy  of  the  calculations  varies  with  position  in 
the  plume. 

This  document  is  intended  to  serve  as  a  guide  for  estimating  the  accu¬ 
racy  of  ax i symmetric  plume  fiowfieid  calculations .  Much  of  the  information, 
however,  is  oasea  upon  somewhat  subjective  data  and/or  certain  cases  (per¬ 
haps  even  unique  cases)  from  which  some  experience  has  been  gained.  Also, 
only  steady  state  rocket  motor  operation  is  considered.  Ignition  and  shut¬ 
down  transient  influences  are  omitted. 


DISCUSSION 

The  effects  which  are  considered  important  in  plume  calculations  are 
categorised  and  discussed  in  this  section.  Tables  I  and  II  summarize  *he 
important  fiowfieid  parameters  and  the  estimated  percentage  of  error  that 
may  be  introduced  by  each  item.  The  error  that  is  discussed  is  the  error 
which  could  exist  if  an  accurate  evaluation  of  the  influence  of  the  item  is 
not  included  in  the  plume  fiowfieid  analysis.  The  error  bands  in  Table  I 
are  considered  to  correspond  to  worst-on-worst  or  three-sigma  cases  for  a 
95  percent  confidence  interval.  The  error  bands  are  rather  large  since  they 
reflect  the  maximum,  values  which  have  been  observed.  Most  rocket  motors  will 
not  encounter  these  effects  to  the  extent  shown  in  Table  I.  A  set  of  data 
correspond! ng  to  an  estimated  one-sigma  deviation  for  a  95  percent  confidence 
interval  is  presented  in  Table  II.  The  items  which  contribute  to  the  accu¬ 
racy  bands  shown  in  Taoles  I  and  II  are  discussed  in  the  following  paragraphs 
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Motor  Operating  Conditions:  Motor  operating  conditions  refers  to  the 
fact  that  rocket  motors  are  generally  specified  to  operate  at  a  nominal  set 
of  conditions  (chamber  pressure,  mass  flow  rate,  and  oxidizer- to- fuel  ratio 
(o/f)).  Variations  from  nominal  conditions  frequently  occur  during  actual 
operation.  A  band  of  +  10  percent  was  arbitrarily  assigned  for  chamber  con¬ 
ditions  (pressure,  O/F  ratio,  mass  flow).  influences  of  this  +  10  percent 
band  on  other  motor  and  plume  environmental  conditions  are  shown  in  Table  I 
and  Table  II. 

Combustion  Chamber  Momentum  Loss  and  Efficiency:  Combustion  chamber 
momentum  loss  and  efficiency  is  included  because  combustion  in  a  rocket  motor 
does  not  take  place  at  zero  velocity  as  implied  by  an  equilibrium,  infinite 
area  ratio  calculation.  The  situation  actually  is  analogous  to  heat  addition 
in  a  finite  area  duct  which  results  in  a  decrement  in  total  pressure.  The 
maximum  momentum  loss  tha*  can  occur  is  a  function  of  the  propellant  system 
and  motor  geometry  and  it  can  be  as  high  as  20  percent  of  the  actual  pres¬ 
sure  immediately  downstream  of  the  injector  face.  Most  motors,  however,  fall 
in  the  range  of  2  to  15  percent  momentum  loss  (Ref.  l) . 

Coupled  with  the  momentum  loss  is  combustion  efficiency;  i.e.,  incom¬ 
plete  mixing  and/or  reaction  of  the  incoming  propellants.  This  anomally 
first  appeared  when  experimental  performance  data  were  compared  with  computed 
data.  Fven  when  all  known  performance  losses  were  included  in  the  analytical 
prediction,  some  descrepancy  still  existed.  This  discrepancy  has  been  termed 
combustion  efficiency  and  several  theories  have  been  proffered  as  possible 
explanations.  The  JANNAF  Performance  Standardization  Committee  has  recom¬ 
mended  an  arbitrary  reduction  in  the  initial  propellant  energy'  to  account  for 
this  loss  (Ref.  2).  Recently,  however,  this  committee  has  been  working  on  a 
droplet  varporization  model  which  will  be  recommended  as  the  explanation  for 
combustion  efficiency.  Whatever  its  source,  combustion  efficiency  must  be 
properly  estimated  to  increase  the  accuracy  of  the  exhaust  plume  calcula¬ 
tion,  The  most  striking  result  of  combustion  efficiency  is  a  temperature 
prediction  considerably  below  that  predicted  by  the  usual  adiabatic  flame 
calculation.  In  this  paper,  the  momentum  loss  and  combustion  efficiency 
problems  are  combined  and  assigned  a  maximum  error,  which  corresponds  to  the 
deviations  that  have  been  observed  between  motor  performance  test  data  and 
theoretical  results  for  no-momentum  loss  and  for  complete  equilibrium  chem¬ 
istry  combustion  at  a  nominal  motor  operating  value  of  o/F. 

Flow  r.triations  (o/f  Ratio  Gradient) :  The  flow  striation  problem  is  a 
result  of  non-uniform  distribution  of  propellant  mixture  ratio  within  the 
combustion  chamber.  Flow  striations  may  be  deliberately  induced  in  the 
nozzle  flow,  as  in  the  case  of  film  cooling,  or  it  may  result  from  incomplete 
mixing  and/or  combustion  in  the  combustion  chamber.  The  effects  that  are  in¬ 
troduced  are  variations  of  the  thermochemical  data  due  to  combustion  at  a 
local  o/f  ratio  which  is  different  from  the  nominal  o/f  value  (Ref.  3). 

Tables  I  and  II  show  error  bands  relative  to  the  nominal  O/F  value. 

The  flow  striation  effect  may  be  closely  related  to  the  combustion  effi¬ 
ciency  problem;  however,  these  effects  are  considered  independently  in  this 
paper. 
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!^a''t.jon  Kinetics:  Reaction  kinetics,  as  used  here,  involves  the 
problem  of  appropriately  defining  the  location  in  the  flow  field  where  the 
eh’-mical  reactions  deviate  from  equilibrium  enough  that  the  flow  can  be  con¬ 
sidered  chemically  frozen.  From  this  point  on,  the  species  concentrations 
are  constant  and  the  thermodynamic  properties  vary  only  with  temperature. 

The  problem  thus  is  one  of  correctly  assessing  a  representative  freeze 
point.  The  error  bands  shown  in  the  charts  relate  the  error  magnitudes  re¬ 
sulting  from  comparison  of  results  for  a  finite  rate  chemistry  analysis 
( Ref.  U)  and  results  obtained  by  an  asstimed  freeze  point  based  on  an  equi- 
1 i brium /frozen  chemistry  analysis.  The  errors  presented  are  the  range  of 
values  which  can  be  expected  in  the  highly  expanded  plume.  The  errors  in 
the  field  nearer  the  freeze  point  are  not  nearly  as  large.  The  major  source 
of  the  errors  is  related  to  differences  in  the  values  of  the  thermodynamic 
properties  used  to  calculate  the  flow  field. 

Mon-Continuum  Effects:  The  error  caused  by  non-continuum  effects  is  due 
to  the  lack  of  rigorous  flow  models  which  can  consider  the  gradual  deviation 
in  thermodynamic  properties  which  result  as  the  rate  of  intermolecular  col¬ 
lisions  is  reduced  below  a  value  corresponding  to  thermodynamic  equilibrium. 
The  error  bands  which  are  listed  in  Tables  I  and  II  for  this  item  refer  to 
variations  which  occur  between  a  rigorous  non-continuum  solution  (Refs.  5 
and  6)  and  a  sudden-freeze  solution  which  uses  continuum  flow  equations  until 
a  "free-molecular"  condition  is  reached  (Ref.  7).  When  this  freeze  point  is 
reached,  the  flow  calculation  is  handled  as  a  free  molecular  calculation.  In 
the  transition  flow  region  (Knudsen  number  greater  than  O.l)  the  error  in¬ 
creases  until  the  sudden  freeze  condition  is  reached.  The  maximum  error 
occurs  near  the  freeze  point  and  is  the  error  shown  in  Tables  I  and  II.  Be¬ 
yond  the  freeze  point,  the  rigorous  solution  and  the  sudden  freeze  solution 
tend  to  converge  toward  common  values  ( Knudsen  number  greater  than  1.0).  The 
sudden  freeze  solution  yields  results  which  snow  significant  deviation  in 
static  temperature.  Density  and  velocity  calculations,  however,  are  not 
greatly  affected. 

The  error  bands  shown  in  Tables  I  and  II  are  based  upon  the  differences 
found  between  cases  analyzed  with:  (l)  a  sudden  freeze  analysis;  and  (2)  with 
a  rigorous  theoretical  solution.  An  additional  large  error,  not  shown  in  the 
charts,  would  appear  if  the  rigorous  analysis  were  compared  with  an  all  con¬ 
tinuum  analysis.  This  would  result  from  the  fact  that  the  temperature  in  a 
continuum  analysis  approaches  a  zero  limit  while  the  rigorous  solution  indi¬ 
cates  that  the  temperature  approaches  a  low  but  finite  value. 

Calculational  Accuracy:  This  item  is  an  arbitrary  estimate  of  the  maxi¬ 
mum  error  conceivable  for  the  numerical  computational  procedures  used. 

Viscous  Kffects  ( Pound ary  layer):  The  viscous  (boundary  layer)  effects 
of  the  nozzle  flow  have  been  shown  to  be  of  minor  consequence  on  the  in- 
viscid  flew  in  the  nozzle.  (That  is,  if  the  boundary  layer  is  considered  in 
terms  of  displacement  thickness  to  alter  the  nozzle  contour,  the  effect  on 
the  nozzle  flow  is  generally  negligible.)  The  effect  considered  here  is  that 
the  boundary  layer  will  influence  the  plume  flow  field  to  some  degree  and 
will  cause  the  maximum  expansion  angle  at  the  nozzle  lip  to  be  significantly 
different.  Basically,  the  boundary  layer  will  tend  to:  (l)  permit  the  flow 
to  expand  well  beyond  the  limiting  inviscid  expansion  angle  at  the  nozzle 
lip;  and  (?)  alter  the  temperature,  pressure  and  density  in  the  portion  of 
the  theoretically  inviscid  plume  which  is  influenced  by  the  boundary  layer. 
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The  boundary  layer  affects  the  entire  plume  to  some  extent  but  the  most  pro¬ 
nounced  effect  is  in  the  outer  Uo  percent  of  the  mass  flow  within  the  plume 
(Kefs.  8  and  9). 

Condensation:  For  a  rocket  motor,  the  influence  of  gases  condensing  in 

low  temperature  flow  fields  has  been  numerically  evaluated  only  to  a  limited 
extent.  The  condensation  will  usually  occur  at  low  temperatures,  at  low 
pressures,  and  at  velocities  near  the  limiting  velocity  of  the  gas  (Ref.  10). 
The  influences  will  occur  in  the  highly  expanded  regions  of  a  flow  field  cor¬ 
responding  to  temperatures  below  the  condensation  temperature  of  the  gas. 

(The  flow  upstream  of  the  condensation  point  is  not  influenced.)  Normally 
the  condensation  will  occur  at  points  in  the  flow  field  where  the  temperature 
is  some  10  to  50°K  below  the  equilibrium  condensation  point.  After  initial 
condensation  takes  place,  the  temperature/pressure  relations  of  the  flowing 
system  will  tend  initially  to  be  parallel  to  and  then  to  converge  toward  the 
temperature/pressure  variation  of  a  static  system  in  equilibrium.  Condensa¬ 
tion  will  cause  local  static  pressures  to  be  different  than  they  would  other¬ 
wise  be  by  factors  of  0  to  -100  (condensation  causes  lower  static  pressures). 
Static  temperatures  will  be  influenced  (with  respect  to  the  no-condensation 
case)  by  factors  of  zero  to  +5  (condensation  increases  static  temperatures). 
The  influence  of  condensation  on  some  of  the  other  parameters  has  not  cur¬ 
rently  been  defined  to  a  sufficient  degree  but  consequential  effects  can  be 
expected. 

Start  Tine:  The  influence  of  the  starting  flow  conditions  has  been  ob- 
served  "to  hove  signi.A>i.c~n"t  effects  for  regions  dose  *tc  "ttie  S"t2.'r*"t  dine  (Refs. 
9,  11,  12,  13,  lU)  but  these  effects  tend  to  weaken  farther  downstream  (2  to 
U  start  line  diameters  downstream  of  the  nozzle  exit) .  Near  the  start  line 
some  parameters  may  be  locally  in  error  by  almost  a  factor  of  10  (between  an 
estimated  and  an  accurate  start  line).  Downstream  the  errors  will  tend  to  be 
smaller  (on  the  centerline,  less  than  25  percent;  in  the  expansion  region,  as 
much  as  50  to  100  percent).  Plume  calculations  that  are  begun  at  the  nozzle 
throat  tend  to  be  relatively  free  from  start  line  effects.  Plume  calcula¬ 
tions  initiated  at  the  nozzle  exit  tend  to  permit  errors  in  local  properties 
that  correspond  to  a  position  error  in  the  flow  field  of  plus  or  minus  one 
startline  diameter. 

Shock  'Naves:  If  shock  waves  in  the  nozzle  and  flow  field  are  not  con¬ 
sidered,  and  a  plume  is  computed  as  an  isentropic  flow,  the  errors  in  the 
plume  flow  field  are  similar  in  magnitude  to  those  associated  with  start  line 
effects  (Item  9),  (Refs.  8  and  9)  except  that  in  the  immediate  vicinity  of 
the  shock  wave,  variations  in  flow  properties  can  be  extremely  different  from 
the  "no-shock"  case.  The  greatest  influence  tends  to  occur  along  the  center¬ 
line  of  the  plume  where  the  shock  wave  is  strongest.  In  the  highly  expanded 
portion  of  a  high-altitude  (near  vacuum)  plume  calculation  the  influence  of 
the  shock  waves  diminishes  as  the  shock  waves  become  weaker  and  weaker. 

Tables  I  and  ] I  present  the  maximum  error  band  values  anticipated  along  the 
centerline  of  a  plume. 

Krror  Hand  Appl i cat  ion:  Tables  I  and  II  list  plume  flowfield  parameters 
and  the-  ost  inai.od  maximum  percentage  error  imposed  upon  them  by  the  various 
items  (1  through  10)  listed  in  the  preceding  discussion.  Their  application 
is  restricted  to  locations  in  the  plume  specified  in  Table  III  and  in  the 
preceding  discussion  of  each  item.  Application  of  the  error  bands  should  be 
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made  considering  that  each  error  contribution  may  only  rartially  exist  for  a 
particular  plume,  and  the  rms  values  of  the  sum  should  normally  be  used.  In 
tin*  application  of  error  bands  to  design  data,  often  a  simple  means  of  ex¬ 
pressing  the  error  band  is  needed.  As  a  result,  a  nominal  accuracy  (or  error 
hand)  representation  has  been  devised  for  use  on  a  general  basis.  This  nom¬ 
inal  accuracy  should  be  based  upon  and  reflect,  for  any  particular  plume,  an 
rms  summation  of  various  error  contributions  cited  in  this  paper.  The  rms 
errors  should  be  resolved  into  a  maximum  percent  error  of  combined  spatial 
position  and  flow  parameter  value.  The  spatial  accuracy  band  is  arbitrarily 
assigned  as  being  equal  in  percentage  magnitude  to  the  quantitative  accuracy 
band.  Results  of  numerous  plume  calculations  and  experimental  calculations 
indicate  that  the  flowfield  structure  (shock  wave  locations,  etc.)  can  be  in 
error  as  a  result  of  the  various  factors.  Some  of  the  effects  which  produce 
flowfield  parameter  quantitative  errors,  also  produce  flowfield  structure 
positional  errors.  Conversely,  a  highly  accurate  plume  calculation  will 
necessarily  reflect  accurate  flowfield  positional  accuracies.  Consequently, 
combining  the  spatial  and  quantitative  accuracy  bands  is  logical.  For  ex¬ 
ample,  a  plume  nominal  accuracy  band  might,  by  the  inspection  process,  be 
assessed  at  +20  percent,  which  means  that  the  calculated  location  of  a 
particular  flow  feature  (a  shock  wave  for  instance)  may  be  in  error  by  +20 
percent  in  both  the  axial  and  radial  position;  also,  the  magnitude  of  the 
flowfield  parameters  may  additionally  be  in  error  by  +20  percent. 

In  summary,  the  process  of  defining  a  nominal  plume  accuracy  should  be 
accomplished  by: 

1.  Assessing  the  applicability  of  the  various  items  which  contribute 
errors  to  trie  computed  plume  flow  field  at  various  plume  locations 

2.  Determining  the  rms  error  band  for  each  flowfield  parameter  for 
numerous  points  in  the  plume 

3.  Obtaining  a  "nominal  plume  accuracy  band"  rms  value  by  averaging 
the  rms  error  bands  of  the  various  points  in  the  flow  field. 

CONCLUSIONS 

Factors  that  affect  the  accuracy  of  plume  calculations  have  been  cate¬ 
gorized,  and  anticipated  ranges  of  errors  associated  with  each  plume  param¬ 
eter  nave  been  estimated.  This  information  is  provided  for  reference  and  is 
intended  to  serve  as  a  guide  in  estimating  the  overall  accuracy  of  any  given 
plume  analysis  based  upon  the  assumptions  employed  for  the  plume  calculation. 
Absolute  values  of  accuracy  are  almost  impossible  to  assign  to  plume  calcu¬ 
lations.  Therefore,  the  data  presented  should  be  used  judiciously,  and  the 
problem  at  hand  carefully  considered,  including  the  fact  that  the  error  bands 
have  been  somewhat  grossly  estimated. 


SYMBOLS  AND  NOTATION 


Force 

force 

M 

Mach  number 

m 

mass  flow  rate 

0/F 

oxidizer/fuel  ratio 
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static  pressure 
total  pressure 

pitot  total  pressure 


T  static  temperature 

total  temperature 

V  velocity 

_  .th 

0^  1  species 

y  isentropic  exponent 

P  density 
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tabu:  t.  estimated  range  of  percentage  of  error  for  various  parameters 

IN  PLUME  FLOW  FIELD  FOR  A  3-SIGMA  DEVIATION  AT  9 %  CONFIDENCE 
INTERVAL 


*  Not  meaningful 

Affects  mainly  the  outer  40%  of  the  mass  flovv  (see  Discussion) 
A  Not  denned 
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TAME  17.  Km  MATED  RANGE.  OF  PERCENTAGE  OF  ERROR  FOR  VARIOUS  PARAMETERS 
IN  CALCUIATED  PLUME  FLOVJ  FIELDS  FOR  1-SIGMA  DEVIATIONS  AT  9 % 
CONFIDENCE  INTERVALS 


Not  meaningful 

**A(fects  mainly  the  outer  40%  of  the  mass  flow  (see  Discussion) 
A  Not  defined 
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TABIF  III.  REGIONS  OF  THE  FLUME  WHERE  ERROR  BANDS  APPLY 


Item 


Region  of  Plume  Where  Error  Bands 
Apply  if  the  Item  is  Not  Included  in 
the  Analysis 


1.  Engine  Operating  Conditions 

2.  Chamber  Combustion  Efficiency 
and  Momentum  Loss 

3.  Flow  Striations 

4.  Reaction  Kinetics 

5.  Non-Continuum  Effects 

6.  Calculational  Accuracy 

7.  Viscous  Effects 

8.  Condensation 

9.  Start  Line 

10.  Shock  Waves 


Entire  Flow  Field 
Entire  Flow  Field 


Entire  Flow  Field 

Small  errors  near  nozzle  exit,  pro¬ 
gressively  larger  errors  in  the  far 
plume . 

Error  applies  in  the  transition  flow 
regime.  The  error  is  zero  at  the  on¬ 
set  of  transition  flow,  maximum  at  the 
sudden  freeze  point,  and  decreases  as 
free  molecular  flow  occurs. 

Entire  Flow  Field 


Error  increases  in  the  region  of  the 
plume  outside  cf  approximately  the  60% 
mass  flow  streamline  (where  minor 
errors  exists).  Major  errors  occur 
outside  the  inviscid  plume  region. 

Error  is  zero  upstream  of  the  point  in 
the  flow  field  where  the  equilibrium  con 
densation  temperature  exists.  Down¬ 
stream,  the  error  can  grow  with  in¬ 
creasing  distances  from  the  equilibrium 
point. 

Error  is  maximum  near  the  startline, 
decreases  to  smaller  values  2  to  5 
startline  diameters  (nozzle  throat  or 
exit)  downstream. 

Error  is  maximum  near  the  centerline 
and  in  the  regions  where  the  shock 
should  be;  decreases  away  from  the 
centerline.  _ 
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Appendix  C 

empirical  INPUT  DATA  AND  INPUT  DATA  SUGGESTIONS 
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The  results  obtained  from  the  Reacting  and  Multiphase  Computer  Pro¬ 
gram  (RAMP)  are  very  sensitive  to  data  which  are  input.  For  two-phase 
cases  the  mean  particle  size,  distribution  of  sizes,  specific  heats,  mass 
density,  particle  melting  temperature,  chemistry  assumptions  and  boundary 
equations  are  the  primary  input  variables  which  determine  the  results.  Each 
of  these  variables  will  be  discussed  in  some  detail  and  suggestions  will  be 
made  as  to  what  values  can  be  used  for  aluminized  propellants.  It  should  be 
noted,  however,  that  the  data  presented  is  not  necessarily  the  best  available. 

Mean  Particle  Size 


Several  different  methods  have  been  employed  for  obtaining  mean  par¬ 
ticle  size.  Included  are  techniques  which  correlate  mean  size  to  throat  diam¬ 
eter  (Ref.C-1),  mean  motor  L*  (Ref.C-2)  (chamber  volume/throat  area), 
chamber  pressure,  residence  time,  particle  loading,  maximum  stable  droplet 
size  as  well  as  combinations  of  each  of  these  parameters.  As  a  simple  esti¬ 
mate  of  mean  particle  size  the  correlation  of  Delaney  (Ref.  C-  1)  based  on  throat 
diameter  can  be  used: 


D  =  4  D'3  (C.l) 

m  t 

where  D  is  the  mean  particle  diameter  in  microns  and  D  is  the  throat 
m  r  t 

diameter  in  inches. 

Particle  Size  Distribution 

For  nozzle  calculations  in  which  no  particle  impingement  on  the  wall  is 
anticipated,  one  particle  size  at  the  mean  size  can  be  used.  However,  for 
plume  calculations  a  knowledge  of  the  particle  size  distribution  is  necessary. 
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Delaney  in  Ref.C-1  showed  that  the  distribution  of  particles  for  smaller 
motors  (D^  <  3.5  in.)  followed  a  log  normal  distribution  (Fig.C-1).  For  the 
large  motors  (D^  >  3.5  in.)  the  data  indicate  that  the  size  distribution  follows 
a  normal  distribution  (Fig.C-2).  To  use  these  distributions:  move  the  curves 
up  or  down  to  the  mean  size  at  the  50%  coordinate,  then  divide  the  curve  into 
5  or  6  sections  and  determine  the  mean  size  that  goes  with  each  of  these 
sections.  Table  C-l  gives  an  example  of  the  size  distribution  (for  6  discrete 
sizes)  which  was  determined  from  the  curve  in  Fig.C-1. 

Particle  Specific  Heats,  Enthalpies  and  Melting  Temperature 

The  values  for  particle  specific  heats,  enthalpies  and  melting  tempera¬ 
ture  which  the  authors  use  are  shown  in  Table  C-2.  The  specific  heats  shown 
are  used  for  the  ideal  approximation  of  particle  enthalpy  verses  temperature 
(i.e.,  the  specific  heat  for  liquid  and  solid  phases  of  the  aluminum  oxide  are 
constant).  The  user  may  find  the  tables  of  temperature  verses  enthalpy  in 
the  JANAF  Thermochemical  Tables  (Ref.C-3). 

Particle  Mass  Density 

The  mass  density  for  aluminum  oxide  is  different  for  the  solid  and  liquid 

phases.  Reference  C-4  shows  the  mass  density  of  liquid  aluminum  oxide  (Al’  O  ) 

,3  3  c  5 

to  be  188  lbm/ft  .  The  mass  density  of  solid  is  250  lbm/ft  .  For  cases 

where  the  particle  temperatures  will  be  higher  than  the  melting  temperature 

for  most  of  the  flow  field,  the  liquid  mass  density  should  be  used.  In  cases 

where  the  particle  temperature  will  be  below  the  melting  temperature  (i.e., 

plumes)  the  solid  mass  density  should  be  used. 

Chemistry  Assumptions 

There  are  numerous  chemistry  assumptions  which  can  be  employed  by 
the  RAMP  code.  The  various  assumptions  are:  (1)  ideal  gas  (constant  specific 
h eat  ratio  and  molecular  weight);  (2)  equilibrium;  (3)  frozen  (constant  molecular 
weight,  varying  specific  heat  ratio);  (4)  equilibrium/frozen  (equilibrium  with  the 
molecular  weight  constant  below  a  specified  pressure)  or  (5)  finite-rate  chemistry. 

C-2 


LOCKHEED  •  HUNTSVILLE  RESEARCH  &  ENGINEERING  CENTER 


Fraction  Greater  Than 


-  Log  Normal  Particle  Size  Distribution  from  HI  5  PC  Motor  (Ref. 


Table  C-l 


LOG  NORMAL  PARTICLE  SIZE  DISTRIBUTION 
FOR  HI  5  PC  MOTOR 


Particle 

Diameter 

Percent  Total 
Particle  Mass 
Flow 

1.2 

10 

1.9 

20 

2.65 

20 

3.5 

20 

5.0 

20 

8.0 

10 

Table  C-2 

Ai203  THERMODYNAMIC  DATA 


Liquid  Ai  O,  Specific  Heat  (C  ) 
Solid  Af^Og  Specific  Heat  (C  ) 

Ps 

Enthalpy  of  Solid  Phase  of  Af^O^ 
at  Melting  Temperature 

Enthalpy  of  Liquid  Phase  of  Ai^O^ 
at  Melting  Temperature 

Melting  Temperature 


.34  Btu/lbm°R 

-  .32  Btu/lbm°R 

—  1358.9  Btu/lbm 

1858.7  Btu/lbm 


4188°R 


The  typo  of  chemistry  assumption  is  very  case  dependent  and  also 
depends  on  the  use  of  the  flow  field.  Table  C-3  presents  various  cases 
and  applications,  along  with  suggestions  as  to  the  type  of  chemistry 
assumptions  to  be  used. 

Finite  rate  cases  can  generally  be  started  at  the  nozzle  throat  assuming 
the  species  distribution  is  in  chemical  equilibrium  since  this  is  valid  for  most 
propellant  systems.  Tables  C-4  through  C-6  present  some  reaction  mech¬ 
anisms  which  may  be  used  for  applicable  propellant  systems.  These  reaction 
mechanisms  were  obtained  from  data  presented  in  Ref.C-5. 

Boundary  Equations 

The  boundary  equations  which  are  input  to  the  code  should  be  smooth 
and  not  contain  discontinuities  in  either  the  slopes  or  coordinates  where  no 
discontinuities  are  physically  present.  Fictitious  discontinuities  can  result 
in  undesirable  mass  flow  errors  showing  up  during  a  solution.  In  Fig.C-3 
a  description  of  the  boundary  equations  for  the  nozzle  throat  and  free  boundary 
are  presented. 

More  complex  nozzle  contours  may  be  input  with  discrete  points  which 
define  the  wall  as  a  function  of  radial  position  and  flow  angle  versus  axial 
position . 
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Table  C-3 
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RC  ”  radius  of  curvature  of  the 
circular  arc  of  the  throat 
RT  =  throat  radius 
XO  =  axial  distance  from  the  origin 
of  the  coordinate  system  to  the 
throat 

0  -  throat  divergence  angle  corre¬ 
sponding  to  the  maximum  value 
for  which  the  throat  conic  equa¬ 
tion  applies 


The  conic  equation  for  this  case  would  have  the  following  form: 

A  =  -1  for  an  upper  equation,  +1  for  a  lower  equation  (-1  for  this  case) 
B  =  RC2  -  XO2 
C  =  2X0 
D  =  -1 

E  =  -(RC  +  RT) 

Xmax  =  RC  sin9  +  XO 


An  example  of  a  free  boundary  is  shown  in  the  sketch  below. 


The  freestream  approach  flow  is 
inclined  at  15  deg  to  the  plume  with 
a  gamma  O')  of  1.4,  a  Mach  number 
of  10,  and  a  static  pressure  of  0.1 
psfa. 


PINF  =0.1  (psfa ) 

E  =  0  (No  pressure  variation  with  axial  distance) 
GAMMAINF  =  1.4 
MINF  =  10 
THETAINF  =  -  1  5° 

Fig.C-3  -  Sample  of  Boundary  Equations 
C-ll 
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